ADVANCED COMPUTER PROGRAMMING 

A Case Study of a Classroom Assembly Program 

F. J. Corbato J. W. Poduska J. H. Saltzer 



TheM.LT. Press 

Massachusetts Institute of Technology 
Cambridge, Massachusetts, 1963 



Copyright (c) 1963 
• by 
The Massachusetts Institute of Technology 



All Rights Reserved 



Library of Congress Catalog Card Number: 63-20529 
Printed in the United States of America 



PREFACE 



The present book is a case study of an assembler-compiler program. It is intended to 
be an advanced programming text for college students, system programmer trainees, and 
anyone trying to acquire a general understanding of system programming techniques. We 
feel that laboratory exercise is an important vehicle for teaching the techniques discussed 
in this volume. Therefore, the translator program example used must be written in an 
existing language of an existing computer. We consequently have chosen the FAP language 
of the IBM 7090 computer to describe the translator program. Other reasons for this 
particular choice are given in Chapter 1." Any loss of generality is partially offset by the 
fact that the 7090 is currently the most widely used large-scale computer in the world and 
one to which many colleges and universities have access. 

The motivation for the present work began with the large gap between the usual beginning 
digital computer programming course and the sophisticated system programming tech- 
niques of interest in programming research and development. It was felt that too many 
students were uncritically using the existing programming systems and were overawed 
by the apparent complexities in such programs as the original F0RTRAN compiler. 

In order to serve as an introduction to system programming and to convince the student 
that the principles of translators are relatively few and basically simple, a Classroom 
Assembly Program named CAP was written. It was first used in November I960, in 
the M. I. T. course 6. 251, Digital Computer Programming Systems. Since then, an execu- 
tion monitor program has been added for the convenience of both students and instruc- 
tors. 

Course 6.251, where CAP has been used, is a one-semester introductory course of 
12 units (3 contact hours per week, 9 hours preparation.) The course begins with study 
of an algebraic language such as F0RTRAN or MAD. The next section covers a machine 
language such as FAP. The third section is devoted to the study of the CAP assembler- 
compiler. During the semester, the course attempts to present most important contem- 
porary ideas about computer programming. Many of these ideas are then illustrated in 
the CAP exercise. 

Specifically, CAP has been used as follows: Students after studying the translator have 
been expected to make specified improvements and changes to it, using 6 to 8 computer 
runs for debugging purposes. (More ambitiously, the students could have written CAP 
from the specifications, but insufficient computer access prevented this for even the 
better students.) 

For each of the eight semesters that CAP has been taught, the student enrollment, which 
has been gradually increasing, has been a cross section of the more than twenty depart- 
ments at M. I. T. Thus we conclude that the average student is able to grasp and enjoy the 
basic principles of a translator program when it is appropriately presented. 

The reader is assumed to be able to program in the FAP machine language sufficiently 
well to know how to look up features of the FAP assembler or of the 7090 computer in the 



IBM published reference manuals. ' He is assumed also to be acquainted with the Binary 
Symbolic Subroutine (BSS) linkage and relocation used in the IBM F0RTRAN Monitor Sys- 
tem (described in the FAP Reference Manual)'. 1 

The book is organized into two major divisions, the description of CAP (five chapters) 
and the appendices containing listings of the CAP assembler. The compiler part of the 
program is considered to be advanced material, and the text advises the beginning reader 
which parts may be safely skipped over. 

The appendices include listings of both the assembler-compiler program and of the ex- 
ecution monitor program. The listing of the assembler-compiler is essential to an under- 
standing of the text. The execution monitor listing, while not so important, is included 
for two reasons. First, an advanced student may make the execution monitor a further 
case study in advanced programming techniques. Second, it is included for completeness, 
for the instructor who may wish to adapt it to his needs. It should be noted that the exec- 
ution monitor program does make use of a few specific features of the current M.I. T. 
F0RTRAN Monitor System and 7090 computer. 

Acknowledgment should be given to the efforts of the many teaching assistants who have 
labored to make the use of CAP effective. Particular mention is made of Neil Haller for 
his work on the early stages of CAP and introducing the first version of the execution mon- 
itor program, and of Neil Barta for his preliminary description of the UPDATE feature of 
FAP, from which a major part of Chapter 5 is adapted. We also are especially apprecia- 
tive of the useful comments on the present manuscript made by Neil Barta and Thomas 
Hastings. 

The programs described in this book were developed at the M.I. T. Computation Cen- 
ter, Cambridge, Massachusetts. 

Cambridge, Mass. F. J. Corbato 

May, 1963 J- w - Poduska 

J. H. Saltzer 
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Chapter 1 



INTRODUCTION 



In an age of increasing complexity, the reader may reasonably ask why he should want 
to learn the innermost structure of a digital computer programming system. For the day 
of the renaissance man is indeed past; the intricacies of pre-sent-day knowledge as well 
as the limitation on time for comprehension, of necessity, allow a person to be a special- 
ist in but a limited number of areas. The answers will vary, but it is inescapable that 
digital computers have already during their short presence become an immensely impor- 
tant device in modern society. As for the future implications, the only issue of debate is 
whether or not computers are bringing a second industrial revolution as the steam engine 
heralded the first. Examples of the penetration of computers into our daily activities 
abound; to name but a few: banking, payroll processing, production and inventory con- 
trol, income tax processing, satellite orbit computation and tracking, numerically con- 
trolled machine tools, airline reservation systems, and military defense communication 
networks. 

Because digital computers have become important, it is inevitable that the accompa- 
nying system programs will grow in importance too. For computers reach a high level 
of effectiveness only when the programming systems allow the ultimate user of the system 
to program directly — albeit often unknowingly by that name — and thereby avoid interme- 
diary programmers. The development of these direct usage languages is presently limited 
by the ease and rapidity that suitable translation programs can be written. These trans- 
lation programs, are variously named problem oriented language processors, compilers, 
or assembly programs, depending on the language level at which they meet the user. 
Today, more and more, a computer is incomplete without an accompanying programming 
system of considerable sophistication. 

Moreover, computer systems are still rapidly evolving in many directions: The detailed 
circuit technology is still making great strides, the logical design is changing to include 
multiconsoles and multiprocessors, and the programming systems are being enlarged to 
include larger roles such as the time-shared operation of the computer. It is important 
in this highly fluid state of affairs that others in addition to the system programming spe- 
cialists have an understanding of programming systems. What is needed for the optimum 
use of computers in the future is that responsible individuals within computer-affected or- 
ganizations understand the problems and general techniques of programming systems to 
the same extent that the problems and techniques of computer hardware are now under- 
stood. For without knowledgeable and critical guidance there will be not only many costly 
abuses of computers but there will be little vision and few ideas for new computer appli- 



cations. 



To give the reader insight into contemporary programming systems, the following chap- 
ters will present a case study of the inner structure of a combination assembler-compiler 
program. The program is called CAP, an acronym for Classroom Assembly Program, 
and it contains many of the typical features of present-day translators. The case study' 
technique will prove helpful since there are many interrelated factors to consider and 
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discuss. As well as acquiring an inner knowledge of a translator, the reader of CAP will 
acquire three additional benefits, namely: 

1. The study of detailed programming techniques. 

2. How to read and study a large program. 

3. How to organize a large program. 

For several reasons the CAP program has been written in the FAP symbolic machine 
language of the IBM 7090 computer. A machine language representation has been specifi- 
cally chosen because of its concreteness and lack of ambiguity for the reader. This rea- 
son is especially pertinent when one considers that one of the principal objectives of the 
study of CAP is to remove the mystery of system programming and to establish a feet-on- 
the-ground attitude in the reader. Finally, the FAP language, rather than S0S, for 
example, has been used in order to have its powerful subprogram feature which allows 
separate translation and rigid independence of program segments — a feature which greatly 
assists the initial understanding of a large program. 

CAP is weaker than the usual translators, such as FAP, in that it has only subsets and 
examples of various special features and does not have the machinery for separately trans- 
latable subprograms. CAP differs from FAP in style, too, in that it is more elegantly 
written (that is, in terms of simplicity, brevity, and clarity) and highly organized with 
many subprograms. The CAP style is in contrast to that of many translator programs in 
active use where extreme short-cuts have been used in the interest of minimizing oper- 
ating speed. (Often the short-cuts used are analogous to those for reducing the cost of 
commercial television receiver and frequently shortsighted from a maintenance point of 
view.) The basic techniques used in translators remain the same, however, so that CAP 
is a valid program from which to learn. One feature of CAP that merits comment is that 
although intermediate tapes are simulated, the program fits entirely in core memory and 
is independent of intermediate storage devices. Present-day translation programs have 
frequently overlooked the speed advantages of remaining entirely in core memory partic- 
ularly while translating short subprograms which should be the major use when a trans- 
lator allowing subprograms is utilized. 

Finally, before proceeding with the remaining chapters, discussion is in order on how to 
study CAP. Past experience with many students indicates that the following advice is useful: 

1. Obtain an understanding of what CAP does from the point of view of a user. 

2. Determine the specifications of CAP as a program. 

3. Determine the specifications of subroutines PASS1, and PASS2. 

4. Starting in PASS1, study the specifications of the successive programs in the hier- 
archy of subprogram usage. (Omit the compiler.) 

5. Starting at the top of the hierarchy, study how each subprogram meets its specifi- 
cations. Review steps 2 to 4 sufficiently often that you are always sure of what a pro- 
gram is supposed to do before considering how it does it. 

6. Remember that all subprograms can only communicate by means of their calling 
sequences because they are separately translated. 

7. When studying, it is a great advantage to know that a program has been debugged. 
Nevertheless, there will always be sections of program which appear not to work cor- 
rectly. After spending a reasonable amount of time, if no progress is made, avoid getting 
bogged down by jotting down on a pad the uncertain point for later discussion with others. 

8. The compiler can be studied easily after the basic CAP is understood. 

9. The advanced student can improve his program analysis abilities, by studying the 
execution monitor program, although it is given largely for reference purposes. 



Chapter 2 



CAP USER'S REFERENCE MANUAL 



2.1 The CAP Language 

Before we begin to study how the CAP assembly program works, we should pause to 
determine exactly what job it is intended to do. We can perhaps get the best picture of 
this job if we examine the user's reference manual for the CAP language. This reference 
manual is the subject of the present chapter. The brevity of the reference manual is at 
once an indication of the simplicity of the CAP language and of the assembly program it- 
self. 



2.2 Card Format 

CAP instructions are typed one to a card as shown in Figure 2.1. Columns 1 to 6 are 
known as the symbolic location field and may contain a symbol or blanks. Columns 7 and 
12 are always blank, leaving room for a three or four letter operation code in the opera- 
tion field, columns 8 to 11. The variable field begins in column 13 and terminates at the 
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Figure 2.1. Format of CAP symbolic cards. 

first blank column, or column 73. An arbitrary comment may follow this first blank 
column. This comment will be ignored by the assembly program as will the sequence 
number field, columns 7 3 to 80. 

Symbolic Location Field 



This field may contain a symbol, a string of one to six characters, at least one of which 
is nonnumeric, and none of which are the following eleven special characters: 
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A symbol may be defined only by its appearance in the symbolic location field of some 
instruction card. 

Operation Field 

This field may contain a mnemonic associated either with one of thirty-four 7090 in- 
structions or one of five pseudo-operations. The allowed 7090 instruction mnemonics are 
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The instructions LAC, LXA, SXA, and TSX are assembled with a tag of 4. The instruc- 
tion TIX is assembled with a tag of 4 and a decrement of 1. 
The allowed pseudo-operation mnemonics are 

REM INT 0CTL C0MP END 

The effect of these pseudo-operations is explained in a later section. 

Variable Field (Operations) 

The variable field specifies the address of an operation. It may contain an expression 
consisting of a string of symbols and decimal integers connected by the break and grouping 
characters: 

+ - * ( ) 

All multiplications must be made explicit by the use of the asterisk even if one of the 
operands is a parenthetical expression. The variable field is evaluated in signed 35 bit 
integer arithmetic. If the result is negative, it is two's complemented before the final 
step in which the answer is taken modulo 2 15 . The result is combined with the specified 
operation code by a logical "OR". 



Sequence Number Field 

Columns 73 to 80 may be used for labeling and sequence numbering and are ignored by 
the CAP assembly program. 



2.3 Pseudo-Operations 

REM The REM pseudo-operation is used to introduce an arbitrary remark into the 
assembly listing. Card columns 1 to 80 will be printed and the card will be otherwise 
ignored by the assembler. If a symbol appears in columns 1 to 6, it will be ignored. 

INT INT is a data-generating pseudo-operation. The variable field of the INT pseudo- 
op consists of signed decimal integers separated by commas and terminating at the first 
blank column. For each decimal integer, a word is assembled with the decimal integer 
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inserted in the left half of the word. A comma with no integer following it will cause a 
word of all zeros to be assembled. A decimal integer may be preceded by a minus sign 
and must be of absolute value less than 2 17 . A symbol, if any, appearing in the symbolic 
location field will be defined to be the location of the first integer assembled. Succeeding 
integers will be placed in succeeding locations in core storage. 

0CTL The twelve characters in card columns 13 to 24 are taken to be octal digits and 
are used to form a 12 digit octal word in core storage in the next location to be assigned 
by the assembler. If the characters appearing in columns 13 to 24 are not octal digits, an 
incorrect word will be generated and no error indication will be made. A symbol in the 
symbolic location field will be defined to be the location of the generated word. 

C0MP The C0MP pseudo-op specifies that the entire variable field, columns 13 to 72, 
is taken to be an arithmetic statement which is to be compiled, in much the same manner 
as in F0RTRAN or MAD. Blanks are ignored and commas may be used to indicate tagging. 
The arithmetic statement must consist of a symbol followed by an equal sign and followed 
by an arithmetic expression. This expression may consist of symbols connected by the 
break and grouping characters: 

+ -*/() 

Numbers in the expression will be taken as symbols referring to memory locations. The 
indicated arithmetic expression will be compiled in floating point arithmetic, _ and a list of 
the instructions compiled will appear on the CAP assembly listing. If a symbol appears 
in the symbolic location field of the C0MP card, its value will be the location of the first 
compiled instruction. 

END This pseudo-op marks the physical end of the program and defines the entry point 
to the program to be the value of the expression in the variable field. If a symbol appears 
in the symbolic location field, it is given the value of the first location not used by the 
program. 



2.4 Use, of CAP 

CAP is a package of subroutines which is called by 



TSX $CAP,4 



The AC should contain the location in core storage into which the first instruction of the 
symbolic program is to be assembled. When CAP is finished it will leave in the AC the 
entry point to the program. The sense register (SI) will be nonzero if any assembly 
errors were noted by CAP. 

2.5 Output of CAP 

The CAP assembler has two outputs, a printed assembly listing, and a binary machine 
program. The listing consists of one or more printed lines for each instruction card in 
the symbolic input deck. This line contains the 80 columns of the original card, the 
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12 digit octal word which CAP has assembled as well as the octal location in which the 
instruction has been placed, and pertinent coded error indications. In the case of C0MP 
pseudo-ops, the C0MP card will be printed and followed by a list of the instructions gen- 
erated by the compiler in the format described earlier. The assembly listing is written 
on an output tape for later printing. The binary machine program is left in core storage 
beginning at the location specified by the program which called CAP. 



2.6 Restrictions and Error Indications 

1. No more than 100 symbols may be defined. If this restriction is exceeded, further 
symbols are ignored and a comment is printed at the beginning of the assembly listing, 
and SI bit 17 will be turned on. 

2. All operation codes must be among those listed earlier in this chapter. If an illegal 
operation code is encountered, it will be treated as zero, SI bit 34 will be turned on, and 
the letter "O" will be printed on the assembly listing next to the offending instruction. 

3. All symbols appearing in variable fields and C0MP statements must be defined. If 
an undefined symbol is encountered, it will be given value zero, SI bit 35 will be turn on, 
and the letter " U" will be printed next to the offending instruction. 

4. The variable field of an INT pseudo-operation must contain only decimal integers, 
preceded by plus or minus signs and commas. If an illegal character is encountered, 
that word will be assembled as zero, SI bit 33 will be turned on, and the letter " E" will 
be printed on the assembly listing next to the offending pseudo-op. 

5. No more than 200 separate elements and break characters may appear in a C0MP 
statement. If this restriction is exceeded, the C0MP statement is skipped,, and SI bit 14 
will be turned on. 

6. No more than 125 nested parentheses may appear in an arithmetic expression in a 
variable field. If this restriction is exceeded, an incorrect value may be computed and 
SI bit 15 or 16 will be turned on, depending on the nature of the parentheses count. 

The following two restrictions occur when CAP is run under the Classroom Execution 
Monitor described in Chapter 5: 

7. No more than 150 cards may appear in the symbolic program. 

8. The symbolic program must not assemble into more than 256 binary machine in- 
structions or require more than 300 card images to be written on the collation tape. 



Chapter 3 
THE CAP ASSEMBLER 



3.1. How Does an Assembler W ork? 

In this chapter we shall examine in detail the workings of CAP and of assembly programs 
in general. While references to the exact coding of CAP are specific to this assembly pro- 
gram, the general discussion and flow charts are common to most assembly programs for 
most computers. 

The purpose of any assembly program is to translate the symbolic cards describing a 
machine language program into that machine language program. For convenience, this 
translation can be considered to consist of two operations: First, the mnemonic codes 
representing machine operations must be replaced by the binary machine codes represent- 
ing those same operations, and these binary codes must be assigned locations in core stor- 
age. Second, the symbolic variable field of each instruction must be evaluated in terms 
of the symbols appearing in the symbolic lbcation fields of other instructions, and the re- 
sulting address must be inserted in the instruction. Consider the following program, 
written in the CAP language: 

CAL BITS GET C0UNT. 

SLW W0RD SAVE. 

HERE TRA HERE ST0P. 

BITS INT 6 BIT C0UNT. 

W0RD INT ST0RAGE F0R BIT C0UNT. 

In order to translate the first instruction, CAL BITS, we need to know two things. First, 
what is the binary machine code corresponding to the mnemonic CAL? Second, what is ' 
the value of the address part of the instruction, that is, what is the value of the symbol 
BITS? The first question can be answered by reference to a table of operation mnemonics 
and machine codes, an essential part of any assembler. The second question, however, 
requires knowledge of which symbolic card has the label BITS. This knowledge can be 
gained only be going completely through the symbolic deck once to determine the location 
value of each symbol. 

We see, then, that the assembly program must go through the symbolic cards twice. The 
first pass through the symbolic cards is required to assign each instruction to a place in 
core storage and thereby to define the value of the symbol, if any, appearing in its symbolic 
location field. Then, on the second pass through the cards, it is possible to evaluate the 
variable field of each instruction on the basis of the symbols defined on the first pass. 

We may expect, therefore, that CAP will exhibit a basic structure consisting of two 
passes through the input symbolic card deck. In fact, since CAP is coded in the form of 
independent subroutines, we shall find that this two- pass structure is handled by two sub- 
routines, named, conveniently, PASS1 and PASS2. These two subroutines are called by 
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$CAP ^ 



Call PASS1 



I 



Call PASS2 



Return to caller 



another single subroutine named CAP. (The reader should note 
that the name CAP will hereafter be used both for the entire as- 
sembly program and for the subroutine which calls PASS1 and 
PASS2. The meaning of any particular usage should be clear 
from context. ) Let us examine a flow diagram of the subroutine 
CAP, in Figure 3.1. 

The CAP subroutine is called by the sequence 



CAL 
TSX 



0RG 

$CAP,4 



Figure 3.1. Flow di- 
agram of subroutine 

CAP. in the main subprogram. (See listings of MAIN and CAP in Ap- 

pendix 1.) 0RG specifies the location in core storage at which 
the machine language program assembled by CAP is to start. 
Subroutine CAP then gives this information as an argument to subroutines PASS1 and 
PASS2, which perform the two passes through the symbolic card deck mentioned earlier. 

Note that subroutines PASS1 and PASS2 upon encountering errors turn on bits in the 
sense register (SI); subroutine CAP therefore clears the SI before calling each subroutine, 
and saves its contents upon return. The main program, upon return from CAP, could 
determine if the assembly was successful by examining the SI, although it does not do this. 



3.2 Pass One, Symbolic Definitions 



It is stated earlier that the purpose of the first pass is to assign each instruction a 
place in core storage and thereby define all symbols appearing in location fields of the 
symbolic program. The procedure involved in doing this is, as might be expected, quite 
straightforward. First, an instruction location counter (ILC) is set to contain the loca- 
tion where the first instruction is to be assembled, which is the origin of the machine lan- 
guage program being generated by CAP. Then, a card is read. If it is not a pseudo- op- 
eration, the symbol, if any, appearing in the symbolic location field is defined, the card 
is put away in a place at which it can be found by pass two, and the ILC is incremented by 
one. The process is then repeated for the next card. If a pseudo- operation is encountered, 
some special processing may have to occur. For example, when the END card is encoun- 
tered, pass one should terminate rather than continue reading cards. A flow diagram of 
pass one is shown in Figure 3.2. 

If we examine the coding of the loop in subroutine PASS1, we find that it takes very few 
instructions, primarily because the difficult jobs are relegated to subroutines. For 
example, the box labeled "Read card" is handled by a subroutine named READ1. The en- 
tire operation, of determining whether there is a symbol to define and defining it to be the 
value of the ILC, is handled by another subroutine SYMST0. Similarly subroutine WCT1 
handles the problem of saving the card for the second pass. If we believe that these sub- 
routines work as their calling sequences specify, the understanding of pass one is greatly 
simplified. 

In fact, the physically largest section of subroutine PASS1 is devoted to processing the 
pseudo- operations, even though this processing is perhaps the least important function of 
pass one. Let us examine what must be done when pseudo- operations are encountered. 
Perhaps the simplest procedure occurs for the pseudo- operation REM. In this case the 
loop is re-entered after skipping the operations of symbol definition and increasing the 
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Figure 3. 2. Flow diagram of the first assembly pass. 
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ILC. The only procedure of interest is saving the REM card for pass two. (See Figure 
3.3, a flow diagram including pseudo-op processing.) 

In the case of the 0CTL pseudo- operation during pass one, the only concern is th 
ber of words of storage required (one in this case) and the definition of any symbol appe 
ing in its symbolic location field. Therefore, it can be handled exactly like the ordinary 
operation codes, that is, by defining the symbol and increasing the ILC by one. 

If an INT pseudo- operation appears, the same considerations apply as before. However, 
the variable field of the INT may specify that several words be generated. (See INT de- 
scription in Chapter 2.) The variable field always specifies that at least one word should 
be generated. If there are to be additional words, for each extra word there will be a 
comma in the variable field. Therefore, the assembler may learn how many words will 
be generated simply by counting the number of commas in the variable field and adding 
one. Remember that the only concern of pass one is counting the number of registers 
used by the source program and defining symbols. The procedure used when an INT is 
encountered is, then, to test for and define the symbol in its symbolic location field, and 
to count the number of commas in its variable field. The subroutine C0MMA performs 
this last step, and also adds one plus the number of commas to the ILC. The loop is 
then re-entered for the next card. 

The operation of the C0MP pseudo- operation will not be explained in detail here except 
to say that the symbol, if any, in columns 1 to 6 is defined, the card is saved for pass 
two, and a subroutine C0MP0P is called to process the pseudo- operation variable field. 
C0MP0P causes the generation of the instruction sequence required to carry out the com- 
putation indicated in the variable field and increases the ILC appropriately. The opera- 
tion of subroutine C0MP0P is not essential to an understanding of pass one or the rest 
of CAP. A full discussion of the subroutine may be found in Chapter 4. 

We come finally to the END pseudo- operation. When this card is encountered, pass 
one is complete except for certain simple terminal procedures. The subroutine END0P 
must first be called to finish off the work of the C0MP0P subroutine by making space at 
the end of the program for the temporary storage locations required by all the compiled 
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Figure 3. 3. Flow diagram of subroutine PASS1. 
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instruction sequences. Then, the symbol, if any, in columns 1 to 6 of the END card is 
defined and the card saved for pass two. Since pass one is now finished the value of the 
ILC, which is now equal to the first location not used by the object program being as- 
sembled, is placed in the AC, and subroutine PASS1 returns to the program which called 

it. 



3.3 The Collation Tape 

It has been mentioned several times earlier that pass one must put the symbolic card 
images away in a place where pass two will be able to find and process them. While in 
principle it would be possible for pass two to backspace the input tape (or the operator to 
reload the card reader with the symbolic program), in practice it is much simpler for 
pass one to write the card images on a second tape, the collation tape. Pass one then 
ends by rewinding this collation tape, and pass two can begin again with the first card in 
the symbolic input program. 

It is worthwhile noting, also, that when small symbolic programs (say, less than 150 
cards) are being assembled, there is ho reason why a collation tape is necessary, as 
there is enough room in the core storage of a 7090 to hold all the card images at once. 

A common alternate procedure for larger programs is to collect a buffer of, say, 150 
cards, then write the entire buffer on a collation tape at once. While the tape write takes 
place, the assembly program can be processing more input cards and storing them in a 
second buffer. 

Still another method uses two collation tapes, collating half the input cards on one, 
then starting a rewind so that when pass two begins there will be no wait for tape position- 
ing. The second half of the program is collated on the second tape, which is rewound at 
the end of pass one, and which will be properly positioned about halfway through pass two 
when it is needed. 

If no collation tape is used, it is still convenient for pass one to call a subroutine to 
store the cards; the subroutine simply inserts them into a core memory buffer rather 
than writing a collation tape. Similarly, pass two uses a complementary subroutine 
which locates and transmits the core buffer rather than reading back from a collation 
tape. 



3.4 Pass Two, Symbolic Evaluation 

When all symbols have been defined by pass one, it is possible to finish the assembly 
by processing each card image in order, and determining values for its operation code and 
for its variable field. The purpose of pass two, it will be remembered, is to evaluate 
the operation code and variable field of each card, to assemble the binary machine word 
required to represent the instruction, and to print an assembly listing containing the 
original card and the octal equivalent of the machine word generated. Again, the basic 
procedure is straightforward, although pass two is a little more complicated than pass 
one. The ILC is again set to start at the origin specified by the program which called 
CAP. 

The main loop of pass two then operates as follows: First, a card is read from the 
collation tape. If the card does not refer to a pseudo- operation, the operation code is 
evaluated by comparing it to entries in the operation table. The numeric code of the 
machine instruction corresponding to the given mnemonic is obtained from this table. 
Then, the variable field, is evaluated. These two results are combined by a logical "OR" 
and inserted in core storage at the location specified by the ILC, (An alternate proce- 
dure might be to store the instruction in an output buffer for punching. ) A line is printed 
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on the assembly listing containing the card image and the octal equivalent of the word that 
was inserted in core storage. Finally, the ILC is increased, and the loop repeated for the 
next card. 

The main loop of subroutine PASS2 takes but a few instructions, as most of the difficult 
jobs are handed down to subroutines to perform. The cards are read from the collation 
tape by subroutine READ2, and the assembly listing is printed by an internal subroutine 
PRNT1. The most difficult job, evaluation of the variable field on the basis of the sym- 
bols defined in pass one, is handled by subroutine VAREVL. 

As in pass one, the physically largest section of coding in pass two is that involved in 
processes not strictly important for an understanding of how pass two works, that is, 
processing the pseudo- operations, and printing the assembly listing. The pseudo- opera- 
tions are handled as special cases as they were in pass one, by performing some simple 
operations and re-entering the main loop at a strategic point. Let us examine them again, 
one at a time, to learn how they each fit into pass two. 

The REM Pseudo-operation again is the simplest of the pseudo-ops. The REM card is 
printed on the assembly listing, and the loop re-entered at the point where the next card 
is read. (See Figure 3.4). A slightly different print subroutine is used, as no octal word 
was generated for the REM pseudo- op and nothing need be printed in the columns normally 
used for printing the octal word. 

The C0MP pseudo- operation is handled exactly like the REM pseudo- operation in pass 
two, since all compilation operations were finished in pass one. (See Chapter 4 for de- 
tails on the C0MP pseudo- operation. ) 

The INT pseudo- operation is taken care of very simply by calling a subroutine INT0P 
to evaluate the variable subfields and to insert the results in core storage. The INT card 
is printed on the assembly listing along with the first machine word generated. 

The 0CTL pseudo-operation is handled on the spot by PASS2 as an example of in-line 
coding. A BCD-binary conversion is performed, the result inserted in core storage, 
and the 0CTL card printed on the assembly listing. 

As a last step for each of the above pseudo- operations, the pass two loop is re-entered 
at an appropriate place. In the case of the END pseudo- operation, however, the loop 
terminates. The variable field of the END card is evaluated by subroutine VAREVL, 
and this value is saved (and printed) as the entry point to the assembled machine program. 
Pass two is now complete. The error flags, if any, are placed in the SI, and PASS2 re- 
turns to the program which called it. 

A comment on the error flags in subroutine PASS2 is in order at this point. Whenever 
an undefined symbol is encountered in a variable field by subroutine VAREVL, or an il- 
legal operation code by PASS2, or an INT error by subroutine INT0P, an appropriate 
bit in the sense indicator register is turned on. The subroutine used to print out the 
assembly listing examines the SI and prints any error flags next to the instruction being 
processed. The SI is then set to zero before the next instruction is processed. In ad- 
dition, one cell is kept throughout pass two which contains the logical combination ("OR") 
of all the error bits of individual instructions. It is this last cell that is placed in the 
SI when pass two is finished. 

3.5 VAREVL, Evaluation of the Symbolic Variable Field 

We now come to the problem of evaluating the symbolic variable field of each instruc- 
tion; a problem often considered to be the essence of the assembly process. At first 
glance, given that the values of the symbols which might appear in a variable field have 
been defined during pass one, we might think that this evaluation would be quite easy. 
In fact, if we were asked to carry out such an evaluation we would have no difficulty work- 
ing out the answer in a short time. However, the algorithm needed for the evaluation is 
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Figure 3. 4. Flow diagram of subroutine PASS2. 
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surprisingly complicated, because of the existence of an implied order of operations in 
the mind of the person writing the expression. Consider, for example the following CAP 
symbolic instruction: 

X CAL ALPHA+4* BETA 

where ALPHA and BETA are symbols which appear in the symbolic location fields of 
cards elsewhere in the program. In evaluating the expression "ALPHA+4* BETA", the 
multiplication must be carried out before the addition operation, or else an answer will 
be obtained which is different than the one intended by the writer of the expression. Al- 
though this order of precedence is a usual convention in mathematical notation, it must 
be systematically observed by the assembler when evaluating the expression. 

Let us examine a moderately complicated expression and see what sort of combinations 
of symbols may appear. After figuring out what procedure is used in each of these cases, 
a general procedure will begin to emerge which can be formalized into an algorithm for 
the evaluation procedure. 

Let us take, as an example, the symbolic expression 

+4* ABC- ALPHA+S* 2 

and assume that ABC, ALPHA, and S are defined symbols. We first observe that a symbolic 
expression can be characterized as a string of elements (symbols or decimal integers) 
separated by break characters and terminated by a blank column. The allowed break char- 
acters represent the binary operations of addition (+), subtraction (-), and multiplication 
(*), and the unary plus and minus sign. For the moment, the ability to handle parentheti- 
cal expressions will be ignored. The unary plus at the beginning of the expression, if not 
provided by the programmer, is automatically inserted as a first step of evaluation. 

To formalize the scan of this expression, let us create three windows which can be 
moved across the expression in such a way that the center window always shows us an 
element, and the left and right windows show us the break characters on the correspond- 
ing left and right sides of that element. For example, if the windows were placed on the 
above expression as far to the left as possible, we would obtain: 

|T| ED H ABC-ALPHA+S*2 

What does this combination of operands imply? First, the plus sign on the left signals 
that we are starting to evaluate a term . The asterisk on the right signals that there are 
more things to come in this term, so the saving of the element in the center for a future 
multiplication is all we can do. The element is saved in a location named "term" ready 
for reference later. 

Now, move the windows to the right until the next element falls in the center. We obtain 

+4 [*] | ABC | □ ALPHA+S*2 

Again examining the left and right break characters to decide what should be done, we 
argue as follows: The asterisk on the left tells us to multiply the old value of the term 
by the value of the present element. This result may be returned to the storage location 
"term". The minus sign on the right signals that the term has come to an end, and that 
the value stored away in "term" should be added into the "sum" register for this expression. 

Now, move the window to the right again. This time, we obtain 

+4* ABC GD I ALPHA | ITl S*2 

The left window exhibits a minus sign signaling the start of a new term, a negative one 
at that. Therefore, we may store away the negative of the value of the present element 
in the location "term". The plus sign on the right again signals the end of the term, and 
that the value of the term should be added to the "sum" register. 
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Moving the window once more, we obtain 

+4* ABC-ALPHA \±] [Sj [*] 2 

This combination of operators is identical to that found at the beginning of the expression 
so that we may follow the same procedure. First, on the basis of the plus sign we store 
away the value of the present element since we are starting a new term. Second, since 
the * indicates that there is more to come in this term, we must wait until later elements 
are brought into consideration. 

Finally, with the window in its next and last position, we have 

+4*ABC-ALPHA+S H [T| D 

This time the situation is similar to one encountered before, except for the lack of an 
operator in the right window. The left break character again requires us to multiply the 
value of the term collected so far by the value of the present element. The blank appear- 
ing in the right window tells us to add the term into the "sum" register and stop, as the 
evaluation of the symbolic expression is complete. 

Although, this procedure seems complicated, let us see if we can develop a flow dia- 
gram describing the algorithm. The procedure has the following characteristics: After 
moving the window, we first examine the break character in the left window, do some- 
thing about it, then examine the break character on the right. After processing on the 
basis of this right break character, we move the window and repeat the same series of 
steps. This procedure is formalized in the flow diagram in Figure 3.5. If we follow the 
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Figure 3. 5. Flow diagram of subroutine EVAL. 
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flow diagram through for the expression examined previously, we see that it carries out 
each of the operations described. This flow diagram describes the operation of the sub- 
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which is implicit in this flow diagram is that of evaluating the item appearing in the cen- 
ter window. If the element is a decimal integer, a decimal- to- binary conversion must be 
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lookup procedure is done by the subroutine SYMGET which acts as a complement to the 
subroutine SYMST0 used during pass one. 
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How EVAL is Called 

EVAL is an internal subroutine of the subprogram VAREVL. The subprogram VAREVL 
itself simply sets up EVAL and calls it properly; when EVAL has finished evaluating the ex- 
pression, VAREVL handles the operation of reducing the answer to a core memory location. 
(See Figure 3.6, a flow diagram of VAREVL.) 

Making EVAL an internal subroutine of VAREVL 
allows EVAL to be defined recursively. That is, if 
the occasion should arise that EVAL needs to have a 
subexpression evaluated, it can call on subroutine 
EVAL to do the job. One might expect to get into dif- 
ficulty with this procedure, since when EVAL is called 
recursively, it will change many registers and tempo- 
rary results. We will see that this difficulty is cir- 
cumscribed by picking out critical temporary results 
and saving them in a special way. 

In terms of the picture described above, a paren- 
thetical expression may be considered to be an ele- 
ment which appears in the center window. Whenever 
the center window is determined to contain a paren- 
thetical expression as an element, the element is 
evaluated by calling the subroutine most able to handle 
the evaluation of an expression, namely subroutine 
EVAL. In order to call EVAL, it is necessary to save 
away temporary results, such as the values of the 
"term" and "sum" registers that have been collected 
so that those registers may be used by EVAL for the 
subexpression evaluation. Then, when EVAL is fin- 
ished evaluating the subexpression, the "term" and 
"sum" registers are restored; the evaluation of the 
original expression continues, using for the value of 
the element in the center window the answer obtained 
by EVAL on the recursive call. 

Since the parenthetical expression may itself con- 
tain another nested parenthetical expression, EVAL 
must be very careful how it saves away its temporary results, as a second saving of 
temporary results might destroy the first set. 

To handle this problem, two subroutines named SAVE and UNSAVE are used by EVAL. 
These two subroutines manipulate a last-in, first- out storage array called a push- down 
list. Each time subroutine SAVE is called, an item or block of items is stored in the 
list. When subroutine UNSAVE is called, the last item or block stored in the list is re- 
trieved. Successive calls to UNSAVE retrieve items stored by earlier calls to SAVE. 

EVAL, then, saves temporary results in the push- down list before calling itself, and 
retrieves the results later. If the expression requires repeated recursion, the pushdown 
list will save and restore the temporary variables in the proper order. 
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Figure 3.7. Flow diagram of EVAL with recursive capabilities. 

Figure 3.7 is a flow diagram of EVAL with the ability to handle parenthetical expres- 
sions added. The recursive ability of EVAL is not essential to the understanding of the 
general expression evaluation procedure; it should be ignored in early study by assuming 
that no parentheses are encountered. 



3.6 Subprogram Calling Sequences and Definition s 

In this section, the calling sequences and a thumbnail description of each of the utility 
subroutines used in CAP are described. For reference, the same information about sub- 
routines CAP, PASS1, PASS2, and VAREVL is reproduced here. 

Primary Subroutines 

CAP CAP is called by 



CAL 
TSX 



0RG 
$CAP,4 



Subroutine CAP causes the symbolic program written on cards and appearing on the in- 
put tape to be assembled in core storage starting at the location specified by the address 
portion of the accumulator. 

PASS1 PASS1 is called by 



CAL 
TSX 



0RG 
$PASS1,4 
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Subroutine PASS1 performs the first pass of an assembly program over the symbolic cards 
on the input tape, writes them on a pseudo-collation tape, and defines symbols; assuming 
that the symbolic program is to start at the location specified by the address portion of 
the accumulator. If errors are found they are noted in the SI. PASS1 uses index register 
one to contain the complement of the ILC. 



PASS2 PASS2 is called by 



CAL 0RG 

TSX $PASS2,4 



Subroutine PASS2 performs the second pass of an assembly program by reading the sym- 
bolic cards appearing on the collation tape. The program is assembled in core storage 
starting at the location specified by the address portion of the AC, and an assembly list- 
ing is prepared on the output tape. PASS2 uses index register one to contain the comple- 
ment of the ILC. If errors are found they are noted in the SI. 

VAREVL subroutine VAREVL is called by 

TSX $VAREVL, 4 

PZE BUFF 

where BUFF is the location of a 14 word buffer containing a symbolic card image. VAREVL 
will evaluate the variable field starting with the first character of BUFF+2 and continuing 
to the first blank, comma, or column 7 3. If any undefined symbols are encountered, SI 
bit 35 will be turned on. 

Input and Output Subroutines 

Both PASS1 and PASS2 call several input- output routines to handle tape manipulations. 
These !/<£> subroutines are 

READ1 Read Input Tape, called by 

TSX $READ1,4 

PZE BUFF 



BUFF BSS 14 

The 80 columns of a symbolic card are read from the input tape into the fourteen word 
buffer at BUFF, Note that 80 characters do not quite completely fill the buffer; the last 
4 positions may contain arbitrary characters. 

WCTl Write Collation Tape, called by 



TSX $WCT1,4 

PZE BUFF 



BUFF BSS 14 
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The fourteen word BCI buffer is written on the intermediate tape. 
REWIND Rewind Collation Tape, called by 

TSX $REWIND, 4 

The intermediate tape is marked with an end of file and rewound. 
READ2 Read collation tape, called by 



TSX $READ2,4 

PZE BUFF 



BUFF BSS 14 



Fourteen words of the intermediate tape are read into the buffer at BUFF. READ2 checks 
that the collation tape has been rewound. 

PRINT Write on output tape for off-line printing, called by 



TSX $PRINT,4 

PZE A,0,n 



The n word line image starting in location A is written on the output tape (tape A3). The 
first character of A (normally blank) is used for carriage control. PRINT counts the 
lines of output and stops after 300. 

Symbol Table Subroutines 

For forming and searching a symbol table a subroutine package with entries SYMST0 
and SYMGET is used. 

SYMST0 The sequence 

TSX $SYMST0,4 

will cause the BCD characters in the AC to be scanned (blanks removed), right justified, 
and inserted in a symbol table together with its value, the complement of IRl. If the sym- 
bol is blank, it is ignored and no entry is made in the table. 

SYMGET The sequence 

TSX $SYMGET,4 
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will cause the value of the symbol in the AC (assumed to be scanned and right justified) 
to be looked up in the symbol table. If the symbol is defined, the value is returned in the 
AC. If undefined, zero is returned in the AC and SI bit 35 is set on. 

Utility Subroutines 

CAP also uses a package of utility programs which includes SCAN, C0MMA, SAVE, 
and UNSAVE. 

SCAN SCAN is called by 

TSX $SCAN, 4 

on return, the BCD word in the AC is compressed to the right, with blanks removed and 
leading positions filled with zeros. 

C0MMA Subroutine C0MMA is called by 

TSX $C0MMA, 4 

PZE BUFF 



C0MMA counts the number of commas plus one starting with the first character in BUFF+2 
and ending with the first blank or column 7 3. The count is subtracted from index register 
one. SAVE and UNSAVE manipulate items in a pushdown list. 

SAVE SAVE is called by 



TSX $SAVE,4 

PZE A, 0,n 



the n words in registers, A, A+l, ..., A+n- 1 are placed at the top of the pushdown 
list and the other items in the list are pushed down n places. (Note that the pushdown ef- 
fect is achieved by pointers, not by actually moving all the previous entries in the list 
down in core memory.) 

UNSAVE UNSAVE is called by 



TSX $UNSAVE,4 

PZE A, 0,n 



The top n items in the pushdown list are read into locations A, A+ 1, ..., A+n- 1 and 
the other items in the list are pushed up n places. 

The pushdown list has a maximum depth of 500 locations. Any attempt to exceed this 
depth is ignored and SI bit 15 is set. Attempts to retrieve more items than have been 
stored are ignored and SI bit 16 is set. 
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Subroutine INT0P is used to evaluate variable fields of the INT pseudo-op during pass 
two. 



INT0P INT0P is called by 



TSX $INT0P, 4 

PZE BUFF 



where BUFF+2 is the address of the first location of the buffer containing the variable 
field. INT0P scans the variable field and converts each decimal subfield (as delineated 
by commas) to a binary number; shifts the number obtained into the decrement; and stores 
it in the next location in the program being assembled, assuming that index register one 
contains the complement of the LLC. INT0P then increments the LLC and repeats the op- 
eration for the next subfield. 

Subroutine END0P is used at the end of pass one to reserve temporary storage for 
C0MP pseudo-ops. 

END0P END0P is called by 

TSX $END0P, 4 

Control returns to the caller after END0P changes the C(IR1) by the proper amount and 
enters the symbol TEM into the symbol table. 

0PTBL The first word in $0PTBL is a control word containing in its address the 
location of the first item in the operation table and in its decrement the length of the 
operation table; the rest of 0PTBL consists of pairs of entries, a right- justified BCD 
mnemonic paired with the binary machine code for that mnemonic. 

Subroutine C0MP0P and the subroutines it calls are described in Chapter 4. 



Chapter 4 
THE COMPILER OF C0MP PSEUDO-OPERATIONS 



In this chapter we will examine in detail the operation of the set of subprograms which 
compile arithmetic for C0MP pseudo-operations. The material under discussion is of 
an advanced nature and not essential to an understanding of the CAP assembly program. 
A beginning reader may skip this chapter, as the material in the sequel will not make 
reference to the compiler. The reader is assumed to be familiar with an algebraic lan- 
guage such as F0RTRAN, ALG0L, or MAD. 



4.1 Why a Compiler? 

Compilers exist to free the programmer from worry about coding details while working 
with algebraic calculations. The compiler can take care of the coding details, and the 
programmer need only concentrate on setting up the proper equations. 

The primary reason for including a compiler in CAP is educational. We shall see the 
close similarity between the internal processes of assemblers and compilers; some of 
the mystery as to how compilers work will thereby disappear. 

Another reason for including a compiler is to provide a contrast with the macro- 
operation processors found in many present-day assembly programs. A compiler is an 
often overlooked alternative and provides a flexibility of expression which the macro- 
processor cannot obtain. 



4.Z What Does a Compiler Do? 

The point of the compiler is very simple. If the programmer writes on a card a state- 
ment 

C0MP Y = ALPHA + BETA 

the program which results is identical to that which would have resulted if the program- 
mer had instead given the instructions 



CLA 


ALPHA 


FAD 


BETA 


ST0 


Y 



We see, then, that the purpose of the compiler is to generate a program to perform the 
algebraic computation indicated by the symbols and break characters in the variable field 
of the C0MP statement. 
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There are several algorithms available to perform the compilation. In the CAP com- 
piler, a nonrecursive procedure contrasts with the recursive procedure used for evaluating 
expressions in subroutine VAREVL, discussed in Chapter 3. We will see that the algo- 
rithm is a collection of simple, straightforward ideas combined in such a way as to pro- 
duce a sophisticated result. 

4.3 Relation of C0MP to CAP 

We recall that when the CAP assembler encounters a C0MP pseudo-operation during 
pass one, it calls a subroutine named C0MP0P. 

C0MP0P and the collection of subroutines which it calls compile the symbolic machine 
instructions in the CAP language required to carry out the computation called for by the 
C0MP statement. The compiler writes these symbolic instructions on the collation tape 
in the same format as CAP language symbolic instructions which the programmer writes 
and the order in which they are to be performed. The compiler increases the ILC by 
by the number of instructions compiled, and returns control to subroutine PASS1 to con- 
tinue the first assembly pass. By writing symbolic cards on the collation tape during 
pass one, the compiler thereby discharges its responsibility; the symbolic instructions 
on the collation tape will be assembled by the second assembly pass as would instructions 
provided by the programmer himself. 



4.4 Precedence 

The language available to the C0MP programmer allows the use of addition, subtrac- 
tion, multiplication, and division — with parentheses as grouping characters. Since the 
programmer will wish to attach an order of precedence to these operations, the compiler 
must take that order into account when creating the symbolic program. The order of 
precedence used is the following: 

parenthetical expressions 
multiplication and division 
addition and subtraction 

This precedence table corresponds to the table commonly assumed by mathematicians. 
It states, for example, that in the expression 

A + B/C 

the division is to be carried out before the addition. 



4.5 The Spread Field; C0MP0P 

The subroutine called to compile C0MP pseudo-operations is C0MP0P. C0MP0P 
operates in two passes. In the first pass, it scans the variable field of the C0MP card, 
ignoring blanks, and separates the symbols and break characters one to a word in a buf- 
fer known as the spread field. For example, if the variable field contains 

SUM = Gl + G2 + G3/SIX 
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pass one of C0MP0P would produce a spread field containing in successive locations 

SUM 

Gl 

+ 
G2 

+ 
G3 

/ 
SIX 

Later scans may now search the spread field for break characters with a simple search 
loop. Symbols which are longer than six characters are permissible. They will be 
broken up and stored in successive words in the spread field. Since the comma is not 
a break character, the sequence of characters ABC, 1 will be considered to be a single 
symbol and stored appropriately. When compiled as the address of an instruction, this 
symbol could represent a tagged address. 

All scans of the spread field will ignore a zero appearing within the spread field. The 
value of this property will become clear later when we see how the spread field is modi- 
fied as the expression is compiled. An alternative procedure with similar flexibility is 
to place successive items of the spread field in a string pointer list. 

Having re-expressed the arithmetic statement to be compiled in a form easier to work 
with, subroutine C0MP0P proceeds with the actual compilation. A scan is made for a 
parenthetical expression which is in some sense "innermost." That is, it is to contain 
no parenthetical expressions. The procedure for finding such an " innermost" expres- 
sion is as follows: Scan the spread field starting at the top for left and right parentheses, 
leaving markers behind at the left parentheses, and stopping at the first right parenthesis. 
The last left parenthesis marker and the position of the right parenthesis define an "inner- 
most" parenthetical expression. A subroutine named EXPR is now called, with argu- 
ments consisting of the pointers to the left and right ends of the parenthetical expression, 
and the location of the beginning of the spread field. Subroutine EXPR will compile the 
symbolic CAP language program necessary to compute the expression within the paren- 
theses and will write this symbolic program on the collation tape. EXPR will then modi- 
fy the spread field by replacing the left parenthesis, the entire expression within the 
parentheses, and the right parenthesis with zeros. The last instruction in the symbolic 
CAP language program generated by EXPR will be an instruction to store the result of 
the computation in a temporary storage location. The symbolic name of this temporary 
storage location is inserted directly in the spread field by EXPR in one of the locations 
formerly occupied by the parenthetical expression. The symbol TEM+nn will always fit 
into the space vacated by the original expression. This is one of the reasons for choosing 
to spread out the original expression into a spread field. 

At this point, the "innermost" parenthetical expression is compiled. C0MP0P now 
starts over again, looking for a new " innermost" parenthetical expression in the modified 
spread field. Since the old expression, along with its parentheses, was replaced by a 
single symbol in the spread field, C0MP0P can scan for a new " innermost" parentheti- 
cal expression exactly as it did before. It is now clear why zero words are ignored 
within the spread field. Whenever the compiler writes instructions on the collation tape, 
it replaces the symbols and operators within the spread field leading to the compilation 
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of these instructions by zeros. Later scans of the spread field ignore the presence of the 
zero positions, as nothing more is to be compiled from the information that was once con- 
tained there. 

C0MP0P iterates in the manner described; first locating an innermost parenthetical ex- 
pression, and then calling upon EXPR to compile the expression. EXPR removes the ex- 
pression from further consideration by modifying the spread field. 

Eventually, C0MP0P will reach a situation in which the spread field contains no paren- 
thetical expressions. Instead, it will contain a simple expression preceded by a symbol 
and an equal sign. In this case, subroutine EXPR is again called with parameters indicat- 
ing the beginning and end of the simple expression and with an additional parameter spec- 
ifying that the program compiled is to leave its result in the AC rather than in temporary 
storage. EXPR again generates symbolic instructions, writes them on the collation tape, 
and modifies the spread field by replacing all elements compiled by zeros. Upon return- 
ing to C0MP0P the compilation is nearly completed except for storage of the final result. 
Subroutine C0MP0P then generates the necessary ST0 instruction to complete the com- 
pilation. Let us follow this procedure through for a moderately complicated expression. 
Consider the following C0MP pseudo- operation 

C0MP Y = ((A+B)*(E-C*DL)+END)*F+L1 

Figure 4.1 shows the spread field and instructions compiled in succeeding steps. Figure 
4.2 is a flow diagram of C0MP0P. 

Step 1. C0MP0P places the variable field in the spread field (Figure 4.1a) and scans 
for left and right parentheses, starting at the top, ending with the first right parenthesis. 
(See Figure 4.1b.) It then calls EXPR to compile this "innermost" expression. EXPR 
will write the instructions indicated as "step one" in Figure 4. If, on the collation tape 
and modify the spread field to that shown in Figure 4.1c. 

Step 2. C0MP0P scans again for left and right parentheses and calls EXPR to com- 
pile the expression found. EXPR writes on the collation tape the instructions indicated 
as "step two" in Figure 4. If, and modifies the spread field to that shown in Figure 4. Id. 

Step 3. One more scan for parenthetical expressions results in a call to EXPR and 
compilation of instructions indicated as "step three" in Figure 4. If. EXPR modifies the 
spread field to appear as in Figure 4.1e. 

Step 4. The scan for parentheses fails this time. C0MP0P calls EXPR to compile 
the remaining simple expression and specifies that the result of the computation be left 
in the AC. EXPR compiles the instructions labeled "step four." 

Step 5. C0MP0P compiles an ST0 instruction with a symbolic address consisting of 
that variable to the left of the equal sign. The compilation is now complete. 

C0MP0P keeps track of parenthetical expressions by means of pointers to positions 
in the spread field. An alternative procedure is to push successive field items down in 
a push- down list searching for a right parenthesis. Then, the subroutine compiling the 
expression can retrieve items back to the last left parenthesis. 

Note that we have not yet learned how EXPR compiles the symbolic arithmetic instruc- 
tions and places them on the collation tape. We are analyzing the compiler from the 
"outside in" and are still at a stage where the organization of the compiler is the most 
important thing to be learned. Having established the procedure by which parentheses 
are handled, we are now ready to begin studying the details of instruction creation. 
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Figure 4.1. Successive spread fields and resulting compilation for 
C0MP Y = ((A+B)*(E-C*DL) + END)*F+L1. 
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Figure 4.2. Flow diagram of subroutine C0MP0P. 
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4.6 Compilation of Individual Instructions 

In the fifth step in the example above, subroutine C0MP0P had to compile the instruc- 
tion ST0 Y. To write this instruction on the collation tape, a package of subroutines is 
used which manipulate a collation tape buffer and write on the collation tape. The colla- 
tion tape buffer is a 14- word buffer which is used to collect a symbolic card image. 

The first subroutine in this package is PIVAR. (Place in var iable field.) Its calling 
sequence is 

TSX $PIVAR,4 

PIVAR takes the contents of the AC as a BCD word, and inserts that BCD word in the 
next available space in the variable field of the collation tape buffer. Columns 1 3 to 18 
are filled in by the first call to PIVAR, columns 19 to 24 on the next, etc. 

The last piece of information known about any instruction is always the operation code. 
Subroutine GEN0P inserts the operation code and writes the collation tape buffer on the 
collation tape. Its calling sequence is 



TSX $GEN0P,4 
BCI 1, opr 



where "opr" is the operation mnemonic to be inserted in the operation field. GEN0P in- 
serts the instruction code into the operation field (columns 7 to 12) writes the entire col- 
lation tape buffer on the collation tape, and clears out the buffer with blanks, resetting 
PIVAR to store in columns 13 to 18. Thus the sequence required to generate the ST0 Y 
instruction in step five, above, is 



GET SYMB0L FR0M SPREAD FIELD. 
INSERT IN VAR FIELD. 
GENERATE ST0 0P. 



CAL 


FLD.l 


TSX 


$PIVAR,4 


TSX 


$GEN0P,4 


BCI 


1, ST0 



When it compiles instructions, subroutine EXPR also uses the subroutines PIVAR and 
GEN0P. 

4.7 Compilation of Simple Expressions; EXPR 

Subroutine EXPR has the responsibility of compiling parentheses- free expressions. 
This responsibility includes the proper handling of precedence below the level of paren- 
thetical expressions. EXPR handles precedence by making two passes over the symbolic 
expression; during the first pass, all terms (symbols connected by asterisks and slashes) 
are compiled leaving the expression in the form of a summation of individual elements 
(subroutine TERM compiles the terms). In the second pass over the expression, EXPR 
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compiles the necessary add and subtract instructions to complete the summation. Let 
us consider a typical spread field expression that EXPR is to compile. The expression 
comes from Step 2 of the previous example. 



C 

DL 



In the first pass, EXPR locates terms containing more than one symbol. In the given 
expression, the second term falls into this category. Therefore, EXPR calls subroutine 
TERM with parameters pointing to the upper and lower boundaries of the term C*DL. Sub- 
routine TERM compiles a program which computes the value of the term and inserts the 
answer into temporary storage. In this case the program written on the collation tape is 



LDQ C 

FMP DL 
ST0 TEM 



TERM will also modify the spread field by replacing the elements of the term with zeros, 
and inserting the name of the temporary storage location into the spread field in an ap- 
propriate place. When TERM finishes, the spread field will appear as follows: 



TEM 



Since there are no more terms in our sample expression, pass one of EXPR is complete, 
and pass two begins. In pass two, EXPR compiles and writes on the collation tape a 
program to perform the summation of the elements in the expression. 

The second pass consists of the following steps, indicated in the flow diagram in Figure 
4.3. 6 

1. Scan the spread field from the top, looking for the end of the first symbol. If an 
initial minus sign is passed, set a switch. 

2. Compile the instruction CLA or CLS (on the basis of the switch set in Step 1) with 
a symbolic address consisting of the symbol obtained in Step 1, using PIVAR and 
GEN0P. Replace the operator and the symbol in the spread field with a zero. 

3. Continue scanning the spread field for the end of the next symbol. Again, if an 
initial minus sign is passed, set a switch. 

4. Compile the instruction FAD or FSB (on the basis of the switch set in Step 3) with 
a symbolic address consisting of the symbol obtained in Step 3, using PIVAR and 
GEN0P. Replace the symbol and the operator in the spread field with a zero. 

5. Repeat Steps 3 and 4 until the end of the expression is reached. Now, if requested, 
compile an instruction to store the result in a temporary location. The second 
pass is now complete, and the expression has been compiled. 
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Figure 4.3. Flow diagram of subroutine EXPR. 
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4.8 Temporary Storage and Subroutine G NST0 

The last step in subroutine EXPR was compilation of an instruction to store the AC in 
a temporary location. What symbolic address should be placed in the ST0 instruction, 
and how can temporary storage be reserved? Subroutine GNST0 provides this service. 
The calling sequence 

TSX $GNST0,4 

will bring into the accumulator the symbol TEM+n where n is one less than the number 
of times GNST0 has been called. Subroutine GNST0 will also keep track of the total num- 
ber of temporary locations used so that subroutine END0P can reserve space at the end 
of assembly pass one. The first call to GNST0 brings back the symbol TEM; later calls 
produce symbols such as TEM+1, etc. The instruction 

STZ* $NST0 

resets GNST0 so that the next call starts again with the symbol TEM. Since separate 
C0MP statements are independent, they can use the same temporary storage locations, 
and C0MP0P resets NST0 at the beginning of each new C0MP statement. 
The sequence used by EXPR to compile the store instruction is, then, 



TSX $GNST0,4 GET TEMP0RARY SYMB0L. 

SLW FLD.l INSERT IN SPREAD FIELD. 

TSX $PIVAR,4 PLACE IN VARIABLE FIELD. 

TSX $GEN0P,4 GENERATE ST0 0P. 

BCI 1, ST0 



4.9 The Compilation of Terms; TERM 

When EXPR encounters a term consisting of symbols connected by asterisks and slashes, 
it calls subroutine TERM to compile instructions which compute the value of the term and 
leave the result in temporary storage. Subroutine TERM performs this compilation by 
scanning the term in much the same manner as subroutine VAREVL (see Chapter 3) noting 
for each symbol the break character on its left and on its right. The break character on 
the left may be the beginning of the term, an asterisk, or a slash. The one on the right 
may be the end of the term, an asterisk or a slash. Thus a symbol may have one of nine 
pairs of break characters associated with it. Since the instructions compiled in each of 
the nine cases is different, a nine-way branch must be made for each symbol. The flow di- 
agram in Figure 4.4 illustrates this nine- way branch. The scan of the term begins at 
the left (or top, in terms of the spread field). 

Let us consider a simple term, and follow the operation of TERM through the flow dia- 
gram. Suppose TERM is to compile the following spread field: 

C 

D 

E 

/ 

F 
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Figure 4.4. Flow diagram of subroutine TERM. 

Upon scanning for the first symbol, we find that the left break is the beginning of the term, 
the right break an asterisk. Following the flow diagram, we see that the instruction 
LDQ C is compiled in preparation for the multiply operation. We may note that in this 
case, the compilation leaves the result in the proper register so that the next instruction 
FMP will operate correctly. If the right break character had been a slash, the instruc- 
tion CLA C would have been compiled instead. We will see that the algorithm leaves 
the result in the proper register in all cases. 
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The scan now resumes. The next symbol has an asterisk on the left and an asterisk on 
the right. The asterisk on the left signals that we should compile the instruction FMP D; 
the asterisk on the right warns of a coming multiplication, so the result must be returned 
to the MQ with an XCA instruction. 

Resuming the scan once more, we find that the third symbol has on the left an asterisk, 
on the right a slash. Again, the asterisk on the left signals that the instruction FMP should 
be compiled; however, the slash on the right indicates that the next operation will be divi- 
sion. Therefore, the result is left in the AC in proper position for the FDP instruction. 

Returning to the scan for the fourth and final time, we find the symbol F surrounded by 
a slash on the left and the end of the term on the right. The slash calls for a division op- 
eration, so the instruction FDP F is compiled. The end-of-term break indicates that we 
are almost finished. A temporary storage location is generated by GNST0 and the instruc- 
tion STQ TEM is compiled. Note that if the last operation had been a multiplication, the 
last instruction would have been ST0 TEM instead. 

Now, compilation of the term is finished. Although it has not been mentioned before, 
the spread field was reset to zero during the scan, and, at the end, symbol TEM was placed 
back into the spread field. The final result of the compilation by TERM is as follows: 

Spread field Collation tape 

TEM 






4.10 Review 

With the study of subroutine TERM, we have completed our examination of the compiler. 
A brief review of the essential points covered may help place those points in the proper 
perspective. 

The compiler operates during the first assembly pass of CAP. The compiler places 
the instructions generated on the collation tape for processing by the second assembly 
pass just as though the programmer had provided them. 

Subroutine C0MP0P coordinates the compilation. C0MP0P goes over the symbolic 
expression in two passes. During the first pass, it places the symbolic expression in the 
spread field— one symbol or break character to a memory location. 

In the second pass it evaluates the expression from the innermost set of parentheses 
outward with the help of subroutine EXPR. Subroutine EXPR also operates in two passes. 
In the first pass, EXPR reduces the expression to a summation by calling on subroutine 
TERM to compile the instructions to compute the individual terms. The second pass of 
EXPR compiles the instructions needed to compute the resulting summation. 

During all phases of the compilation, the compiler modifies the spread field as it gen- 
erates instructions and places them on the collation tape. Subroutines GEN0P, PIVAR, 
GNST0, and ERASE help put together symbolic instructions and write them on the colla- 
tion tape. 

When the compilation is finished, control returns to CAP to continue assembly pass 
one. 
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4.11 Calling Sequence of Compiler Subroutines 

This section describes the calling sequences of each of the subroutines of the compiler 
and presents for easy reference a thumbnail sketch of the external characteristics of each 
subroutine. 

C0MP0P Subroutine C0MP0P is called by 

TSX $C0MP0P,4 

PZE BUFF 

where BUFF is the first location of a 14- word buffer containing the symbolic C0MP card. 
C0MP0P compiles the instructions necessary to perform the arithmetic specified by the 
variable field of the card in the buffer, writes these instructions on the collation tape, and 
increases the value of the ILC (assumed to be stored in complement form in index register 
one) by the number of instructions compiled. 

EXPR Subroutine EXPR is called by 



TSX 


$EXPR,4 


PZE 


LI, T.RI 


PZE 


FLD 



where FLD- LI is the address of the left break and FLD- RI is the address of the right 
break. EXPR takes a string of symbols connected by + - * or / and compiles the result 
in floating point. If T = 0, the result is placed in temporary storage. Otherwise, the 
result is in the AC. The spread field is modified accordingly. 

TERM Subroutine TERM is called by 

TSX $TERM,4 

PZE LI.O.RI 

PZE FLD 

where FLD- LI is the address of the left break, and FLD-RI is the address of the right 
break. TERM takes a string of symbols connected by * or / and compiles the result 
in floating point. The compiled program places its result in temporary storage, and 
TERM modifies the spread field accordingly. 

The following subroutines are used to form symbolic instructions: 

PIVAR Subroutine PIVAR (place in variable field) is called by 

TSX $PIVAR,4 

PIVAR takes the C(AC) 1 ^ 5 as a BCD word and stores that word in the next available 
location in the collation tape buffer. On the first call to PIVAR, the next available loca- 
tion is the first word in the variable field position of the buffer. 

ERASE Subroutine ERASE is called by 

TSX $ERASE,4 

Subroutine ERASE clears the collation tape buffer, replacing all words with blanks, and 
resetting PIVAR so that on the next call it will start at the beginning of the variable field. 
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GEN0P Subroutine GEN0P is called by 

TSX $GEN0P,4 

BCI 1, opr 

where the letters "opr" are the symbolic operation code desired. GEN0P will take the 
symbolic operation code in location 1 , 4 and insert it into the operation field of the colla- 

ERAsTt \, w) th6n Wrlte the bUff6r ° n the COllatl ° n ta P e and cal1 -broutine 

ERASE to clear the buffer so that it may be used again. 

GNST0 Subroutine GNST0 is called by 
TSX $GNST0,4 

fotrTm^f r6tUrnS t0 the CaUer aft6r PlaClng ln the AC P. 1-35 a sy-bol of the 
form TEM+n where mis one less than the number of times that GNST0 has been called 

Entry point NST0 will contain this number; and if NST0 is reset to zero, n will be reset 
to zero for the next call to GNST0. GNST0 keeps track of the largest n ever encountered 
and leaves it in a location where it is accessible to subroutine END0P for purposes of as- 
signing temporary storage at the end -of the first assembly pass of CAP. 



Chapter 5 
CAP AS A LABORATORY EXERCISE 



CAP finds application both in the classroom and in the laboratory. In the laboratory the 
student modifies or improves the assembler, for example, by adding pseudo- operations to 
make the CAP language more flexible or by improving the internal operations of the assem- 
bler. Appendix C contains a list of suggested modifications. 

This chapter is divided into two parts to correspond, roughly, to material of greater 
interest to the student and to his instructor, respectively. No clear line can be drawn 
between these interests, of course, as the instructor will wish to read the entire chapter 
and an advanced student will find much of interest in the second part. 



5.1 The CAP Laboratory 

The CAP assembly program was written with expansion in mind. Thus, although there 
might be simpler ways to perform some of the operations called for in the original CAP 
language, extension of these operations might be difficult if a simpler, less general, ap- 
proach had been used in the original coding. There are also several examples throughout 
CAP of points onto which additional coding may be easily attached. An analogy would be 
the complicated highway interchange with one blocked exit at a point where a new highway 

is to be built someday. 

The suggested modifications represent changes which are at once useful, educational, 
and not too difficult, when the operation of the original assembler is well understood. 

When CAP is used in the laboratory, the main program which calls CAP is replaced by 
an execution monitor program to aid in debugging the modifications. This execution mon- 
itor provides aid in case the modified assembly program gets into a loop or comes to a 
stop, and it provides a postmortem when the CAP assembly is finished. 

Also, in the laboratory, the input- output subroutines are replaced with an l/0 simula- 
tor package to speed up testing; this simulator provides as CAP input a symbolic test 
program for assembly and simulates the collation tape with a core buffer. 

Extent of Laboratory Assignment 

A typical laboratory assignment might be the following: The instructor selects a set 
of modifications totaling in value about 200 "points" as required modifications. (See Ap- 
pendix C for point values.) The student then selects additional modifications worth about 
100 points. The student is permitted eight or nine computer "runs" to attempt to get all 
300 points of modifications working correctly. 

Evaluation of the student' s work is done on the basis of a brief written report describinj 
the modifications attempted and the degree of success in achieving modification. Printed 
computer output should accompany the report as evidence of correct operation of the 
modified assembly program. 
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How CAP Is Modified 

Two different procedures have been used to allow the modification of CAP. In the first 
and simpler procedure, the student makes a copy of the symbolic decks of all the subrou- 
tines basic to the assembler and, if desired, the compiler. He then makes changes to this 
deck of 1000 to 2000 cards and submits it for assembly by FAP and testing under the ex- 
ecution monitor. ' 

If this procedure is used, the reader may wish to skip the next sections and proceed 
immediately with the discussion of testing of the modified assembly program (Section 5.3). 

5.2 UPDATE 

If a large class uses CAP as a laboratory exercise, the above procedure can lead to the 
processing of a very large number of cards. An alternate procedure involving the UPDATE 
feature of FAP can significantly cut down on the number of cards used. Under this proce- 
dure, the unmodified CAP subprograms are placed in symbolic form on a single UPDATE 
input tape for all students, and each student need only submit cards corresponding to the 
changes he wishes to make in the subprograms. The UPDATE pseudo- operations of the 
FAP language control the merging of the student' s changes with the original symbolic pro- 
grams and the assembly of the merged programs. 

The UPDATE procedure has the disadvantage that the student must learn the UPDATE 
language in order to modify CAP. However, the advantages of a small input deck are 
significant both in time saved preparing input tapes for the computer and in added relia- 
bility of a smaller deck of cards. 

All features of the UPDATE language necessary for the successful modification of CAP 
will be discussed here. The FAP Reference Manual contains additional information.* 

The Use of UPDATE 

Images of the cards submitted for a run are written ahead of run time on the System 
Input Tape by off-line card-to-tape equipment. When programs are assembled normally 
on the 7090 (without UPDATE), FAP reads the card images from the System Input Tape 
and processes them one at a time. When UPDATE is used, two more tapes are involved: 
the UPDATE Input Tape and the UPDATE Output Tape. In CAP, only the UPDATE Input 
Tape is used. 

The UPDATE Input Tape contains the unaltered symbolic versions of the CAP subrou- 
tines as shown in the listings in Appendix A. The serialization in columns 73 to 80 on the 
lists is also on the UPDATE Input Tape and is used by FAP to determine the order of 
processing card images from the System Input Tape and the UPDATE Input Tape. 

Because the UPDATE facility is a part of FAP the first card of any deck submitted 
using UPDATE must be 

* FAP 

This card causes control to be transferred to FAP. FAP retains control until an END 
card is processed. It is important to keep in mind that the program assembled begins 
at the * FAP card on the System Input Tape and terminates with the first END card proc- 
essed; this END card may be on either the System Input Tape or the UPDATE Input Tape. 
Assembly of another subprogram requires another * FAP card. 

* Reference Manual, F0RTRAN Assembly Program (FAP), IBM Publication C28-62 35 
(September, 1962). 
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The use of four UPDATE pseudo- operations (UPDATE, DELETE, DELETE THRU, 
and SKIPT0) will be described. UPDATE operations are FAP pseudo- operations and, 
as such, begin in column 8 of the card. 

The UPDATE Pseudo-Operation 

The UPDATE pseudo- operation specifies the use of the UPDATE feature of FAP. A 
card with UPDATE punched in the operation field follows the * FAP card. The variable 
field, beginning in column 16, specifies the details of the UPDATE run. The first sub- 
field contains the logical tape number of the tape unit on which the UPDATE Input Tape 
has been mounted. In the following examples we will assume that the UPDATE Input 
Tape is mounted on logical tape drive 11. The other subfields of the UPDATE card spec- 
ify features not used in CAP and should be left blank. Hence the first two cards in each 
CAP UPDATE assembly are 

* FAP 

UPDATE 11 

Adding and Replacing Cards 

Assembly, initiated by the * FAP and UPDATE cards, continues as card images of 
FAP instructions are read from the normal System Input Tape and the UPDATE Input 
Tape one at a time in serial order. A serialized card image on the System Input Tape 
is assembled before a card of equal or higher serialization but after a card of lower 
serialization on the UPDATE Input Tape. Whenever FAP encounters card images of 
equal serialization on the two tapes, the card image on the System Input Tape is assem- 
bled in place of the card image on the UPDATE Input Tape. If there is no serialization 
on thTcTrTirrTage on the System Input Tape, the card image is immediately assembled. 
(See Figure 5.1, a flow diagram of UPDATE.) 

More than nine cards can be inserted between two consecutive cards already on the 
UPDATE Input Tape by giving the first card to be inserted a serial number between the 
two cards on the UPDATE Input Tape. The remaining cards to be inserted at this point 
in the subprogram are not serialized. 

Changes can be made in increasing order of serialization only. 

Deleting Cards from Programs on the UPDATE Input Tape 

To remove a card from a program on the UPDATE Input Tape, the DELETE pseudo- 
operation is used. When FAP reads a card from the System Input Tape that has DELETE 
in its operation field, cards are assembled from the UPDATE Input Tape until a card 
image with serialization equal to that of the DELETE card is found. FAP does not as- 
semble this card image from the UPDATE Input Tape; normal updating and assembly con- 
tinue with the next card from each tape. 

If many consecutive cards are to be deleted from programs on the UPDATE Input Tape, 
the DELETE THRU pseudo- operation may be used. When FAP reads a card that has 
DELETE in its operation field and the letters THRU in the variable field, no more card 
images from the UPDATE Input Tape are assembled until a card of serialization higher 
than that of the DELETE THRU card is found on the UPDATE Input Tape. * FAP will 
then resume normal updating and assembly. 

* A8 of May, 1962, the M.I. T. version of FAP requires THRU in columns 15 to 18; 
this differs from the FAP Reference Manual description of DELETE THRU. 
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To delete a block of cards from the middle of a program: First, insert a DELETE 
card with serialization of the first card in the block. This DELETE card should be fol- 
lowed by a DELETE THRU with serialization equal to the serial number of the last card 
to be deleted. DELETE THRU will delete a card of equal but not higher serialization. 
The input tapes should never be moved backward while updating a program. 

The Necessary END Card 

To insure proper operation of UPDATE, the last card of the input deck for each sub- 
program updated must be a serialized END card. The serialization of the END card in 
the input deck must be identical to that of the END card on the UPDATE Input Tape for 
the subprogram being updated. 

Bypassing Assembly of Subprograms 

The UPDATE Input Tape will be rewound before the job starts and we may assume that 
it is properly positioned to begin assembly of the first subprogram on the tape. The order 
of subprograms on the UPDATE Input Tape is specified in Figure 5.2. The order is the 
same as on the CAP listings. 

The first 

* FAP 

UPDATE 11 

would therefore, start assembly of subprogram CAP. At the end of this assembly the 
UPDATE Input Tape would be positioned ready to start assembly of the second subpro- 
gram. The next 

* FAP 

UPDATE 11 

would start assembly of PASS1, and so forth. 

Most of the suggested alterations to CAP require changes to only a few of the subpro- 
grams. Therefore, it would be wasteful of machine time to assemble all of the CAP sub- 
programs during each run. Assembly of subprograms not being modified on the UPDATE 
Input Tape may be omitted by proper use of the SKIPT0 pseudo- operations. 

When FAP reads a card image from the System Input Tape with SKIPT0 in its opera- 
tion field, assembly is suspended and the UPDATE Input Tape is read until a card image 
of serialization identical to the serialization of the SKIPT0 card is found. Normal up- 
dating and assembly commence with the card of identical serialization on the UPDATE 
Input Tape. A card of serialization higher than that of the SKIPT0 card will not terminate 
the SKIPT0 operation; the serializations must be identical. Thus, assembly o'f a sub- 
program can be avoided by using a SKIPT0 card serialized with the serial number of 
the first card in the next subprogram to be updated. Subprograms must be updated and 
assembled in the order that they appear on the UPDATE Input Tape; SKIPT0 cannot be 
used to move the UPDATE Input Tape backward. 

It is good practice to include a SKIPT0 card in the input deck for every subprogram to 
be updated. If the UPDATE Input Tape is positioned ready to read the card specified by 
the SKIPT0 card, FAP will begin assembly with that card. Inclusion of the SKIPT0 
cards in all input decks makes each subprogram independent of all others. The input 
cards for a particular subprogram may be removed from the complete input deck without 
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H 



5) (from next page) 



Read one card from UDINT. 
Read one card from SYSINT. 

5 



What is operation field of card 
from SYSINT? 



DELETE 



© 



DELETE 
THRU 



SKIPT0 



<8> © 



SYSINT< UDINT 



Process card 
from SYSINT. 



I 



Read card from 
SYSINT. 



other 

<« 




SYSINT> UDINT 
SYSINT=UDINT 



Process card 
from SYSINT. 



Process card 
from UDINT. 



I 



Read card from 
UDINT. 



SYSINT - System Input Tape 

UDINT - UPDATE Input Tape 

SYSINT=UDINT - Serialization on card from SYSINT equals serialization on card 

from UDINT. 
SYSINT<UDINT - Serialization on card from SYSINT is less than serialization on 

card from UDINT. 
SYSINT> UDINT - Serialization on card from SYSINT is greater than serialization on 

card from UDINT. 



Figure 5.1a. UPDATE flow diagram. 
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DELETE> UDINT 




DELETE< UDINT 



Process card from UDINT, 



I 



Read card from UDINT, 
I 



DELETE=UDINT 



Process card from 
UDINT. 



® 



(to previous page) 



<*> 



DELETE THRU 




UPDATE> DELETE THRU 



UDINT=DELETE THRU 



Process card from 
UDINT. 



I 



(to previous page) 




Read card from UDINT. 



(to previous page) 



Figure 5.1b. UPDATE flow diagram. 
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Su bprogram 

CAP 

PASS1 

PASS2 

VAREVL 

0PTBL 

INT0P 

UTILITIES 

SYMST0 

END0P 

C0MP0P 

EXPR 

TERM 



Serialization 
of first card 

CAP00010 

PAS10010 

PAS20010 

VEVL0010 

0PTBOO1O 

INTP0010 

UTIL0010 

SYMS0010 

ENDP0010 

C0MPOO1O 

EXPR0010 

TERM0010 



Serialization 
of END card 

CAP00320 

PAS 107 90 

PAS22210 

VEVL2220 

0PTBO79O 

INTP0990 

UTIL1140 

SYMS0540 

ENDP1020 

C0MP186O 

EXPR1710 

TERM1350 



Figure 5.2. Order of subprograms on CAP UPDATE Input Tape. 

the need to add a SKIPT0 card in the deck for the following subprogram. The first three 
cards for each subprogram to be updated should be 



* FAP 

UPDATE 11 
SKIPT0 



Column 7 3 



I 



SUBR0010 



'Serial number of' 
the first card in 
the subprogram 

v to be updated. 

Remember that the UPDATE Input Tape contains the unaltered , symbolic version of 
the CAP subprograms as contained in the listing in Appendix A. When we submit a deck 
to update a CAP subprogram, it is the combination of that symbolic input deck and the 
unaltered symbolic program on the UPDATE Input Tape that is assembled. When new 
changes are made to a subprogram all previous desired changes to that subprogram must 
be included in the input deck. 



5.3 How CAP Is Tested 

If the modified version of CAP assembles successfully, it may be tested on the same 
computer run. To simplify this testing a special library tape is used with the F0RTRAN 
Monitor System. This library tape contains the execution monitor program and all of the 
subroutines of the CAP assembler in an unmodified, binary form. The student need only 
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assemble those subprograms of CAP for which changes are desired, and the library will 
provide the rest of the subroutines needed to complete CAP. The student must also pro- 
vide a main program which calls the execution monitor program. 

Once a subprogram has been modified, assembled, and checked out, it may be sub- 
mitted on later runs in binary form; it need not be reassembled if no changes are to be 
made to it. 

Let us suppose that a student has made a change to one subprogram, VARE VL, in his 
attempt to add division to the variable field operations. If he submits an assembly and a 
main program as an FMS job, the following steps will be carried out: 

1. The FAP assembly will take place. 

2. If the assembly is successful, the main program and the program just assembled, 
VAREVL, will be loaded into core memory. 

3. The library will be searched for the rest of the CAP assembler and the execution 
monitor, and they will be loaded into core memory. 

4. The CAP assembler, as modified, is then run under the execution monitor program. 
The input- output simulator will provide a symbolic test program for CAP to assemble. 

A typical symbolic program used to test CAP is shown in Appendix B. 

5. When CAP finishes its assembly of the test program (or gets into a loop or stops 
because of the modifications), control of the computer returns to the execution monitor 
which prints out for debugging and comparison purposes, the following: 

a. The symbolic test program CAP worked on. 

b. The collation tape, if anything was written on it by subroutine WCT1. The col- 
lation tape is printed out in BCD. 

c. An octal postmortem of all programs which were submitted (in this case, only 
VAREVL and the main program). 

d. An octal postmortem of the region in core storage in which CAP was to have 
placed the assembled program. 

In the case of the VAREVL test, it will be noted that the symbolic test program in 
Appendix B has in it several variable field division signs. Examination of the addresses 
assembled for these instructions will tell whether or not the modification worked cor- 
rectly. 

In case of difficulty, such as a program stop or loop, the collation tape dump is often 
most helpful if the stop occurred in pass one, since the tape will contain the last instruc- 
tion processed correctly. Similarly, pass two loops or stops may be diagnosed by ob- 
serving which instruction was the laSt processed and printed on the CAP assembly list- 
ing. For example, if the first instruction which does not appear on the CAP output 
listing is the first instruction in which division appears in the variable field, one might 
suspect the new VAREVL modification. 

In connection with item five, listed earlier in this section, the execution monitor as- 
sumes CAP to be in an endless loop if it takes longer than five seconds to complete its 
assembly. The postmortem indicates the instruction location where the program was 
stopped. Adding one to this location will give the instruction which was next to be ex- 
ecuted. A normal CAP assembly takes about one second on the IBM 7090 and the most 
complicated interaction of modifications should not extend this time by more than three 
seconds. 

A typical CAP execution run is shown in Appendix B following assembly listings of the 
execution monitor subprograms. The format of the CAP assembly output and of the 
postmortem outputs can be seen there. 
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5.4 Tactics for Modifying CAP 

Experience has shown that the following tactics can be helpful in making maximum use 
of the limited number of computer runs available for debugging modifications to CAP. 

1. Some modifications are closely related to others; making the first modification al- 
lows the second to follow with but a few instructions. 

2. All anticipated modifications should be submitted before the fourth or fifth run (if 
eight runs are available) to allow sufficient time for debugging. 

3. Leave the addition of pseudo- operations which change the ILC (such as BSS) until 
later runs; debugging the simpler modifications in early runs. (If one of these pseudo- 
operations fails, the result is usually catastrophic.) 

4. Observe that the point values attached to modifications are an indication of their 
relative difficulty. In particular, modifications to the compiler require an understanding 
of advanced material in Chapter 4 and should be avoided by the beginner. 



,5.5 The Instructor 1 s Point of View 

The material discussed in this section is of an advanced nature and may be skipped by 
the reader not interested in teaching CAP to a class. 

The Execution Monitor 



The execution monitor is a package of library subroutines called by a main program. 
The calling sequence to this monitor is 

TSX $TESTS,4 

The main program listed in Appendix B, which contains the above instruction, may be 
assembled and given to the student in binary form for submission along with his modifica- 
tions. The main program also contains three words of octal 7' s which prevent the student 
from duplicating the binary cards on an IBM 026 keypunch. Without the octal 7' s the 026 
may duplicate the cards incorrectly but the 7' s prevent all duplication, and thus they in- 
sure against the possibility of an incorrect binary main program. Note also that the ex- 
ecution monitor does not return to the main program which called it, it exits to the 
F0RTRAN Monitor System when finished testing CAP. 

The execution monitor first prints a subprogram storage map of all binary and sym- 
bolic programs submitted by the student. This is done by reference to subroutine M0VIE) 
inserted at the time of loading by the BSS loader.* The storage map lists all subprograms 
found in M0VIE) from the beginning of core storage up to the subroutine TESTS, which 
is the first subprogram loaded from the library. 

Depending on the status of sense switch one, either a core storage clock or a magnetic 
tape on channel B of the 7090 in combination with a data channel trap is used as a five- 
second timer. In the latter case, a scratch tape (tape B3 as the program is shown in 
Appendix B) is write selected and a sequence of data channel commands with a word count 
of 50000 and terminating with an I0CT command is given to channel B. 



* Subroutine M0VIE) is a copy of the BSS loader table which has been moved to a position 
following the last subprogram loaded and given an entry point name by the BSS loader be- 
fore beginning execution. This loader table consists of entry name and entry point pairs 
and permits a selective storage map and postmortem to be given. 
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Since the. word transmission rate of a 729 mod IV magnetic tape is about 10, 000 words 
per second, the data channel trap will occur in about 5 seconds if CAP has not completed 
its assembly and returned to the monitor by that time. This trap will restart the com- 
puter if it is at a program stop. 

Other trap returns are also set by the execution monitor. A standard floating point trap 
interpreter is provided which changes underflow to zero and terminates the run on over- 
flow. The select trap return is set up and the select trap enabled before calling CAP. 

After these traps have been enabled, the execution monitor places in the AC the origin 
of the symbolic program that CAP is to assemble (50000 ) and calls CAP. 

An 1/0 simulator package handles all calls for input and output from CAP. The input 
tape is simulated by a core storage buffer containing strings of card images. Subprogram 
PR0G is used as a buffer to hold these strings. The collation tape is also simulated using 
a core buffer. 

Control eventually returns to the execution monitor; it returns either via the expected 
return from CAP, or via timer or select traps. The execution monitor prints an appro- 
priate comment and gives a postmortem of relevant information. It then returns to the 
F0RTRAN Monitor System with a standard system load sequence. 

Miscellaneous Details About the Laboratory 

If a student has made a modification which is not tested in the symbolic test program 
contained in subprogram PR0G, a special input/output package is used which reads card 
images from the System Input Tape after the student's * DATA card. All other l/0 opera- 
tions are handled in exactly the same way as in the usual 1/0 simulator package. 

Each student must have the UPDATE Input Tape rewound at the beginning of his job. 
This rewind may be accomplished in one of several ways; perhaps the simplest is the 
temporary modification of the F0RTRAN Monitor System to rewind the tape between jobs.* 
An alternative might be to require that each student use the REWIND pseudo- operation 
in his first FAP assembly. 

Making an UPDATE Input Tape 

The UPDATE Input Tape used for CAP may be made with the aid of the FAP UPDATE 
facility. In the following discussion, since the tape is being written, it will be referred 
to as an UPDATE Output Tape. When making an UPDATE tape from a card deck, only 
an output tape is specified on the UPDATE card. For example, if the tape being written 
is on logical drive 11, the FAP control card would be 

UPDATE ,H,,D 

The D in the fourth subfield specifies that assembly is deleted, permitting the entire tape, 
including all subroutines, to be written with only one loading of FAP. 

Since the third subfield is void, the output tape will be in blocked format. This blocked 
format is preferable to unblocked, as less time will be required to move the UPDATE tape 
when it is used later by a class. (FAP writes blocked records 16 cards to a block.) 

Since assembly is deleted by the fourth subfield, regular END cards (in the subroutines 
being placed on the UPDATE Output Tape) will not stop FAP: the pseudo-operation ENDUP 
will. Following the last subprogram being placed on the UPDATE Output Tape, the 
UPDATE pseudo- operations ENDFIL and REWIND may be used to complete the tape. 

If a student should attempt to SKIPT0 a serial number not on the UPDATE tape, FAP 
will stop with a comment and print the last card on the UPDATE tape. For this reason, 
a card with a distinctive comment such as "SKIPT0 ERR0R" may be inserted after the 
last subprogram written on the UPDATE tape. 



J. H. Saltzer, M.I. T. Computation Center Memo CC-204 (February, 1963). 



Appendix A 
LISTING OF THE CLASSROOM ASSEMBLY PROGRAM 



This appendix consists of FAP listings of the complete Classroom Assembly Program. 
At the end of these listings is an assembly output produced by CAP, of a sample CAP lan- 
guage program. Certain conventions have been observed in these listings. The double 
asterisk (**) has been used as a zero element in the variable field of those instructions 
subject to program modification. Each subroutine begins with the pseudo-operation PCC 
to insure that all cards in the original subprogram appear on the listing. Since the listings 
are to be used as references for UPDATE modifications, the position of all control cards 
must be known. 

Index to Appendix A Page 

Main program 48 

CAP 50 

PASS1 52 

PASS2 55 

VAREVL 61 

0PTBL 67 

INT0P 69 

C0MMA, 72 

SYMST0, 76 

END0P, PIVAR, GEN0P, GNST0, ERASE 78 

C0MP0P 81 

EXPR 86 

TERM 91 

READ1, PRINT, WCT1, REWIND, READ2 95 
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HA IN PROGRAM FOR CAP. 













PCC 














COUNT 


26 












LBL 


MAIN 


TRANSFER VECTOR 








OOOOO 


336225636447 


•SETUP 






00001 


475131456360 


PRINT 






00002 


232147606060 


CAP 






00003 


256731636060 


EXIT 






00004 


0074 00 


4 


OOOOO 




CALL 


.SETUP 


00005 


1 OOOOO 





00007 








00006 


00004 





OOOOO 








00007 


00 74 00 


4 


00001 




TSX 


SPRINT. 4 


000 10 


0000 7 





00031 




PZE 


BEG, 0,7 


00011 


-0500 00 





00030 




CAL 


ORG 


00012 


0074 00 


4 


00002 




TSX 


SCAP.4 


00013 


-0130 00 





OOOOO 




XCL 




0001 A 


-0763 00 





00025 




LGL 


21 


00015 


-0754 00 





OOOOO 




ZAC 




00016 


0774 00 


4 


00005 




AXT 


5,4 


00017 


0767 00 





00003 




ALS 


3 


00020 


-0763 00 





00003 




LGL 


3 


00021 


2 00001 


4 


00017 




TIX 


•-2,4,1 


00022 


-0602 00 





00047 




ORS 


RET+7 


00023 


0074 00 


4 


00001 




TSX 


SPRINT, 4 


00024 


00011 





00040 




PZE 


RET, 0,9 


C0025 


07400 


4 


00003 




CALL 


EXIT 


00026 


1 OOOOO 





00030 








00027 


00201 





OOOOO 








G0030 


+000000050000 


ORG 


OCT 


50000 


00031 


016060 606060 


BEG 


BCI 


7,1 


000 32 


606060606060 








00033 


632562636046 








00034 


266023214773 








00035 


602225273145 








00036 


602162622544 








00037 


224370336060 








00040 


006060606060 


RET 


BCI 


9,0 


00041 


606060606051 








00042 


256364514560 








00043 


265146 446C23 








00044 


214773602545 








00045 


635170604746 








00046 


314563603162 








00047 


600000000000 








00050 


336060 606060 









BINARY CARO LABEL. 



SETUP LIBRARY TIMER AND OUMP RETURNS. 



PRINT 'BEGIN ASSEMBLY* COMMENT. 

SET ORIGIN. 

GO TO CAP. 

GET ENTRY POINT. 

CONVERT ENTRY TO OCTAL-BCI. 



OR TO COMMENT. 

PRINT 'RETURN FROM CAP' COMMENT. 

RETURN TO FORTRAN MONITOR SYSTEM. 



CAP PROGRAM ORIGIN. 

TEST OF CAP, BEGIN ASSEMBLY. 



RETURN FROM CAP, ENTRY POINT IS OOOOO. 



MAIN0010 
MAIN0020 
MAIN0030 



MAIN0050 



MAIN0060 
MAIN0070 
MAIN0080 
MAIN0090 
MAIN0100 
MAIN0110 
MA I NO 120 
MAIN0130 
MAIN0140 
MAIN0150 
MAIN0160 
MAIN0170 
MAIN0180 
MAIN0190 
MAIN0200 



MAIN0210 
MAIN0220 
MAIN0230 
MAIN0240 



MAIN0250 



END 



MAIN0260 



MAIN PROGRAM FOR CAP. 

POST PROCESSOR ASSEMBLY OATA 

51 IS THE FIRST LOCATION NOT USEO BY THIS PROGRAM 
REFERENCES TO OEFI NED SYMBOLS 



24 
23 



NO ERROR IN ABCVE ASSEMBLY. 

•TIME SPENT IN FAP.. 000003 IN HUNDREDTHS OF MINUTES. 



31 


BEG 


10 


2 


CAP 


12 


30 


ORG 


11 


40 


RET 


22, 


3 


EXIT 


25 


1 


PRINT 


7, 





.SETUP 


4 



SUBROUTINE CAP, CLASS ASSEMBLY PROGRAM. 



00005 



TRANSFER VECTOR 

00000 472162620160 

00001 472162620260 

00002 475131456360 





PCC 






COUNT 


32 




LBL 


CAP 




ENTRY 


CAP 


PASSl 






PASS2 






PRINT 







BINARY CARD LABEL. 

START CLASS ASSEMBLY PROGRAM. 



CAP00010 
CAP00020 
CAP00040 
CAP00050 



LINKAGE DIRECTOR 

00003 000000000000 

00004 23 2147 60 6060 

00005 0634 00 4 00020 

00006 0601 00 00025 

00007 0441 00 00034 

00010 0074 00 4 00000 

00011 -0054 00 000001 

00012 0020 00 00022 

00013 0604 00 00026 

00014 0441 00 00034 

00015 0500 00 00025 

00016 0074 00 4 00001 

00017 0442 00 00026 
00020 0774 00 4 00000 
C0021 0020 00 4 00001 

00022 0074 00 4 00002 

00023 0000 5 00027 

00024 0020 00 00013 

00025 00000 00000 

00026 00000 00000 

00027 006270442246 

00030 436063212243 

00031 256062317125 

00032 602567232525 
C0033 242524336060 



CAP SXA 
STO 
LOI 

TSX 

LFT 
TRA 
STOK ST I 
LDI 
CLA 



TSX 

OS I 
AXT 
TRA 

TSX 
PZE 
TRA 



RX4 



STFL 



ORG PZE 
SINO PZE 
MSTFL BCI 



END 



RX4.4 
ORG 

= 

SPASS1.4 

1 

STFL 
SIND 
=0 
ORG 

$PASS2,4 

SIND 

1.4 

SPRINT, 4 

HSTFL.0,5 

STCK 



SAVE IR4. 
SAVE ORIGIN. 
CLEAR ERROR FLAGS. 

GO TO PASSl. 

TEST FOR SYMBOL TABLE OVERFLOW. 

YES, GIVE DIAGNOSTIC. 

SAVE PASSl FLAGS. 

CLEAR INDICATORS FOR PASS2. 

GET ORIGIN. 

GO TO PASS2. 

FORM COMPLETE ERROR FLAGS. 

RESTORE IR4. 

RETURN. 

COMMENT. 

RETURN FOR PASS2 ANYWAY. 



STORAGE FOR PROGRAM ORIGIN. 
STORAGE FOR SENSE INDICATORS. 
5.CSYMB0L TABLE SIZE EXCEEDED. 



CAP00060 
CAP00070 
CAP00080 
CAP00090 
CAP00 100 
CAP00110 
CAP00120 
CAP03130 
CAP00 140 
CAP00150 
CAP00 160 
CAP0D170 
CAP00180 
CAP00190 
CAP03200 
CAP0D210 
CAP00220 
CAP00230 
CAP00240 
CAP00250 
CAP00260 
CAP00270 
CAP00280 
CAP00290 
CAP00 300 



CAP00310 
CAP00320 



LITERALS 
00034 OOOOOOOOOCOO 



SUBROUTINE CAP, CLASS ASSEMBLY PROGRAM. 
POST PROCESSOR ASSEMBLY DATA 

35 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 

REFERENCES TO DEFINED SYMBOLS 

15 
17 



5 


CAP 




25 


ORG 


6, 


20 


RX4 


5 


26 


SIND 


13, 


22 


STFL 


12 


13 


STCK 


24 





PASS1 


10 


1 


PASS2 


16 


2 


PRINT 


22 


27 


HSTFL 


23 



NO ERROR IN ABOVE ASSEMBLY. 

•TIME SPENT IN FAP.. 000003 IN HUNDREDTHS OF MINUTES. 



PASS 1 OF CLASS ASSEMBLY PROGRAM. 









PCC 










COUNT 


79 








LBL 


PASS1 




00012 




ENTRY 


PASS1 


TRANSFER VECTOR 








OOOOO 


662363016060 


WCT1 






C0001 


512521240160 


READ1 






00002 


622321456060 


SCAN 






00003 


62 7044626346 


SYMSTC 






00004 


234644442160 


COMMA 






00005 


234644474647 


COMPOP 






00006 


254524464760 


ENDOP 






00007 


512566314524 


REMIND 







LINKAGE DIRECTOR 

00010 000000000000 

00011 472162620160 

C0012 0634 00 4 00076 

00013 0737 00 1 OOOOO 

00014 0020 00 00017 



00015 
00016 

00017 
00020 

00021 
00022 

00023 
00024 
00025 
00026 
00027 

00030 
00031 
00032 



00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
C0044 



0074 00 4 OOOOO 
OOOOO 00100 

0074 00 4 00001 
OOOOO 00100 

-0500 00 00101 
0074 00 4 00002 



0774 00 
-0340 00 
0020 00 
0020 60 
2 00002 



00012 
00045 
00027 
00046 
00024 



-0500 00 00100 
0074 00 4 00003 
1 77777 1 00015 



000000512544 
0020 00 00045 
000000314563 
0020 00 00046 
000046236343 
0020 00 00062 
000023464447 
0020 00 00053 
000000 254524 
0020 00 00065 



PASSl SXA 
PAC 
TRA 



NEXT TSX 
PZE 



RCD 



TSX 
PZE 



CFLD CAL 
TSX 

AXT 

LAS 

TRA 

TRA« 

TIX 



OP 



PTBL 



CAL 
TSX 
TXI 



SPACE 



aci 

TRA 
BCI 
TRA 
BCI 
TRA 
BCI 
TRA 
BCI 
TRA 



BINARY CARD LABEL. 

FIRST ASSEMBLY PASS OF CAP. 



SAVE IR4. 

IR1 IS -ULC). 

SKIP TAPE WRITING FOR FIRST CARO. 

WRITE CARD ON COLLATION TAPE. 
READ IN NEXT CARO. 



GET OP-FIELD. 
COMPRESS TO RIGHT. 



RX4.4 

0,1 

RCC 

*WCT1,4 
BUFF 

$READ1,4 
BUFF 

BUFF+1 
*SCAN,4 

NPTBL.4 CHECK FOR PSEUDO-OP. 
PTBL+NPTBL.4 COMPARE WITH TABLE. 
»+2 NO, SKIP. 

PTBL+NPTBL+1,4 YES t EXIT. 
•-3,4,2 NO, INDEX AND TRY AGAIN. 

BUFF NOT A PSEUDO-OP, ASSUME OP, 

*SYMST0,4 GET SYMBOL, AND SAVE. 
NEXT, 1,-1 ADVANCE ILC AND RETURN. 



PSEUDO-OP TABLE AND TRANSFERS. 



l.OOOREM 

REM 

1,000 INT 

INT 

1.000CTL 

OCTL 

l.OOCOMP 

COMP 

l.OOOENO 

END 



REMARK CARD. 
FORTRAN INTEGER. 
SIMPLE OCTAL. 
ARITHMETIC. 
END CARD. 



PAS10010 
PAS10020 
PAS10040 
PAS10050 



PAS10060 

PAS10070 

PAS10080 

PAS10090 

PAS10100 

PAS10110 

PAS10120 

PAS10130 

PAS10140 

PAS10150 

PAS10160 

PAS10170 

PAS10180 

PAS10190 

PAS 10 200 

PAS10210 

PAS10220 

PAS10230 

PAS10240 

PAS10250 

PAS 10260 

PAS10270 



PAS10280 
PAS 10 290 
PAS10 300 
PAS10310 
PAS10320 
PAS10 330 
PAS10340 
PAS10350 
PAS10360 
PAS10370 
PAS10380 
PAS10390 
PAS10400 



PASS 1 OF CLASS ASSEMBLY PROGRAM. 
00012 NPTBL EQU »-PTBL 



2MNUMBER OF PSEUDO-OPS). 



PAS10410 



SPACE 



00045 0020 00 00015 REM TRA 



00046 
00047 
00050 
00051 
00052 

00053 
00054 
00055 
C0056 
00057 
00060 
00061 

00062 
00063 
00064 

00065 
00066 
00067 
00070 
00071 
000 72 
0CO73 
00074 
000 75 
00076 
00077 

00100 



-0500 00 00100 
0074 00 4 00003 
0074 00 4 00004 
00000 00100 
0020 00 00015 



-0500 00 
0074 00 
0074 00 
00000 
0074 00 
00000 
0020 00 



00 100 
00003 
00000 
00100 
00005 
00100 
00017 



-0500 00 00100 
0074 00 4 00003 
1 77777 1 00015 



0074 00 
0074 00 
00000 
-0500 00 
0074 00 
0074 00 
0754 00 
0737 00 
0754 00 
0774 00 



0020 00 4 



00006 
00000 
0010C 
00100 
00003 
00007 
00000 
00000 
00000 
00000 
00001 



INT 



COMP 



OCTL 



END 



RX4 



CAL 
TSX 
TSX 
PZE 
TRA 

CAL 
TSX 
TSX 
PZE 
TSX 
PZE 
TRA 

CAL 
TSX 
TXI 

TSX 
TSX 
PZE 
CAL 
TSX 
TSX 
PXA 
PAC 
PXA 
AXT 
TRA 



BUFF BSS 

END 



PSEUDO-OPS. 

NEXT 

BUFF 

*S¥MST0,4 

SC0MMA.4 

BUFF 

NEXT 

BUFF 

$SYMST0,4 

*WCT1,4 

BUFF 

iC0MP0P,4 

BUFF 

RCD 

BUFF 

SSYMST0.4 
NEXT, 1,-1 

$END0P,4 

*WCT1,4 

BUFF 

BUFF 

$SYMST0,4 

SREWIND,4 

0,1 

0,4 

0,4 

••,4 

1,4 

14 



IGNORE REMARK, RETURN. 

GET SYMBOL. 

SAVE. 

GO COUNT COMMAS. 

RETURN. 

GET SYMBOL. 

SAVE. 

WRITE COMP CARD ON COLLATION TAPE. 

• • 

GO COMPILE. 

RETURN FOR NEXT CARD. 

GET SYMBOL. 

SAVE. 

ADVANCE ILC AND RETURN. 

GO TO RESERVE STORAGE AND LITERALS. 
WRITE END CARD ON COLLATION TAPE. 

m m 

GET SYMBOL. 

SAVE. 

REWIND COLLATION TAPE. 

GET FIRST LOCATION NOT USED BY PROGRAM. 

REIMPLEMENT. 

PUT IN AC. 

RESTORE IR4. 

RETURN TO CALLER. 

STORAGE FOR HOLLERITH CARD IMAGE. 



PAS10420 

PAS10430 

PAS 10440 

PAS10450 

PAS10460 

PAS10470 

PAS104B0 

PAS10490 

PAS10500 

PAS10510 

PAS10520 

PAS10530 

PAS10540 

PAS10550 

PAS 10560 

PAS 10 570 

PAS10580 

PAS10590 

PAS 10600 

PAS10610 

PAS10620 

PAS10630 

PAS 10640 

PAS10650 

PAS10660 

PAS10670 

PAS10680 

PAS10690 

PAS10700 

PAS10710 

PAS 10720 

PAS10730 

PAS10740 

PAS10750 

PAS10760 

PAS10770 

PAS10780 

PAS10790 



PASS 1 OF CLASS ASSEMBLY PROGRAM. 
POST PROCESSOR ASSEMBLY OATA 

116 IS THE FIRST LOCATION NCT USED BY THIS PROGRAM 
REFERENCES TO OEFINED SYMBOLS 

61 



30 


OP 




65 


END 


44 


46 


INT 


36 


17 


RCD 


14. 


45 


REM 


34 


76 


RX4 


12 


100 


BUFF 


16, 


53 


CCMP 


42 


15 


NEXT 


32, 


62 


OCTL 


40 


21 


OFLO 




33 


PTBL 


24, 


2 


SCAN 


22 





WCT1 


15, 


4 


COMMA 


50 


6 


ENDCP 


65 


12 


NPTBL 


23, 


12 


PASS1 




1 


READ1 


17 


5 


COMPGP 


57 


7 


REWIND 


72 


3 


SYMSTO 


31, 



20, 21, 30, 46, 51, 53, 56, 60, 62, 67, 70 

45, 52, 64 

26, 45 

55, 66 

24, 26, 45 

47, 54, 63, 71 



NO ERROR IN ABCVE ASSEMBLY. 

•TIME SPENT IN FAP.. 000005 IN HUNDREDTHS OF MINUTES. 



PASS 2 OF CLASS ASSEMBLY PROGRAM. 









PCC 










COUNT 


221 








LBL 


PASS2 




00010 




ENTRY 


PASS2 


TRANSFER VECTOR 








COOOO 


464763224360 


OPTBL 






OOOOl 


512521240260 


READ2 






00002 


622321456060 


SCAN 






00003 


652151256543 


VAREVL 






00004 


314563464760 


INTOP 






00005 


475131456360 


PRINT 







BINARY CARD LABEL. 

SECOND ASSEMBLY PASS OF CAP. 



PAS20010 
PAS20020 
PAS20030 
PAS20050 



LINKAGE CIRECTOR 

00006 000000000000 

00007 472162620260 



00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
C0020 
00021 

00022 
00023 
00024 
00O25 

00026 
00027 

000 30 
00031 

00032 
00033 
00034 
00035 
00036 

000 37 
00040 
00041 
00042 
00043 

00044 
00045 
00046 



0634 00 
0737 00 
-0500 60 
0771 00 
0621 00 
0361 60 
0621 00 
0621 00 
0441 00 
0600 00 



00136 
00000 
00000 
000 2 2 
00037 
00000 
00040 
00047 
00312 
00263 



0442 00 00263 
0604 00 00263 
0441 00 00312 
0634 00 1 00257 



0074 00 

00000 

-0500 00 
0074 00 

0774 00 
-0340 00 
0020 00 
0020 60 
2 00002 

0774 00 

-0340 00 

0020 00 

1 77777 

2 00002 

0055 00 

-07 54 00 

0020 00 



4 00001 
00274 

00275 
4 00002 

4 00012 
4 00070 
00036 
4 00071 
4 00033 



00000 
00000 
00043 
00047 
00040 



000002 
00000 
00050 



PASS2 



NEXT 



SXA 

PAC 

CAL» 

ARS 

ST A 

ACL» 

STA 

STA 

LDI 

STZ 

0S1 
ST I 
LOI 
SXA 

TSX 
PZE 

CAL 
TSX 

AXT 

LAS 
TRA 
TRA» 
TIX 



OPAXT AXT 

OPLAS LAS 

TRA 

TXI 

TIX 

SIR 

PXO 
TRA 



OFLD 



RX4.4 

Otl 

*0PTBL 

16 

OPAXT 

$OPTBL 

OPLAS 

OPFND 

=0 

FLGSM 

FLGSM 
FLGSM 

=0 
LOCI 

SREAD2.4 
BUFF 

BUFF+1 
$SCAN,4 



SAVE IR4. 

IR1 IS -ULC). 

SETUP SEARCH FOR OP. 

LENGTH TO ADDRESS. 

SAVE LENGTH. 

FIRST+LTH. 

SAVE FOR LAS. 

SAVE FOR PICKUP. 

CLEAR INDICATORS. 

CLEAR TOTAL FLAGS. 

FORM COMPOSITE FLAGS. 

SAVE. 

CLEAR INDICATORS. 

INITIAL ILC FOR EACH CARD. 

READ IN NEXT CARD. 



GET COMPRESSED OP-FIELD. 



NPTBL.4 CHECK FGR PSEUDO-OP. 
PTBL+NPT8L.4 COMPARE WITH TABLE. 
• + 2 NOt SKIP. 

PTBL+NPTBL+1,4 YES, EXIT. 



00047 -0500 00 4 00000 OPFND CAL 



•-3,4,2 

••,4 

••,4 

•♦2 

0PFND,4,-1 

•-3,4,2 

2 

0,0 
OPFND+l 

••.4 



NO, INDEX AND TRY AGAIN. 

OP, GET LENGTH OF OP-TABLE FOR SEARCH. 

COMPARE WITH CURRENT TABLE ENTRY. 

NO, SKIP. 

FOUND, INOEX AND EXIT. 

NO, INDEX AND TRY AGAIN. 

ILLEGAL OPCODE, SET FLAG. 
TAKE ZERO FOR OP. 
SKIP PICKUP. 

PICKUP OPCOOE FRCM OP-TABLE. 



PAS20060 
PAS20070 
PAS20080 
PAS20090 
PAS20100 
PAS20110 
PAS20120 
PAS20130 
PAS20140 
PAS20150 
PAS20160 
PAS20170 
PAS20180 
PAS20190 
PAS20 200 
PAS20210 
PAS20220 
PAS20230 
PAS20240 
PAS20250 
PAS20260 
PAS20270 
PAS20280 
PAS20290 
PAS20 300 
PAS20310 
PAS20320 
PAS20330 
PAS20340 
PAS20350 
PAS20360 
PAS20370 
PAS20380 
PAS20 390 
PAS20400 
PAS20410 
PAS20420 
PAS20430 
PAS20440 



PASS 2 OF CLASS ASSEMBLY PROGRAM. 
00050 0602 00 1 00000 SLW Oil 



00051 0074 00 4 00003 

00052 00000 00274 

00053 -0602 00 1 00000 

00054 0074 00 4 00142 

00055 1 77777 1 00022 



TSX 
PZE 
ORS 

TSX 

TXI 



$VAREVL,4 

BUFF 

0.1 

PRNT1.4 

NEXT, 1,-1 



INSERT IN ASSEMBLED PROGRAM. 

GO EVALUATE VARIABLE FIELD. 

OR TO WORD IN ASSEMBLED PROGRAM. 

GO PRINT ASSEMBLY LISTING. 

RETURN. 



PAS20450 
PAS20460 
PAS20470 
PAS20480 
PAS20490 
PAS20 500 
PAS20510 
PAS20520 
PAS20530 



00056 000000512544 

00057 0020 00 00070 

00060 000000 314563 

00061 0020 00 00072 

00062 000046236343 
C0063 002C 00 00076 

00064 000023464447 

00065 0020 00 00111 

00066 000000254524 
C0067 0020 00 00113 

00012 



SPACE 



PTBL BCI 
TRA 
BCI 
TRA 
BCI 
TRA 
BCI 
TRA 
BCI 
TRA 

NPTBL EOU 



PSEUDO-OP TABLE AND TRANSFERS. 



l.COOREM 

REM 

l.OOOINT 

INT 

l.OOOCTL 

OCTL 

l.OOCOMP 

COHP 

l.OOOEND 

END 

•-PTBL 



REMARK CARO. 

FORTRAN INTEGER. 

SIMPLE OCTAL. 

ARITHMETIC. 

END CARD. 

2»(NUMBER OF PSEUDO-OPS). 



PAS20540 
PAS20550 
PAS20560 
PAS20570 
PAS20580 
PAS20 590 
PAS206OO 
PAS20610 
PAS20620 
PAS20630 
PAS20640 
PAS20650 
PAS20660 
PAS20670 



00070 
00071 

00072 
00073 
00074 
00075 

00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 

00111 
00112 



0074 00 4 00173 
0020 00 00022 

0074 00 4 00004 
00000 00274 
0074 00 4 00142 
0020 00 00022 



-07 54 00 
0774 00 
0774 00 
0560 00 
-0773 00 
-0763 00 
2 00001 
2 00001 
0602 00 
0074 00 
I 77777 



00000 
00002 
00006 
00300 
00003 
00003 
00102 
OOlOO 
00000 
00142 
00022 



0074 00 4 00173 
002C 00 00022 



REM 



INT 



OCTL 



OLP 



SPACE 



TSX 
TRA 

TSX 
PZE 
TSX 
TRA 

PXO 
AXT 
AXT 
LDQ 
ROL 
LGL 
TIX 
TIX 
SLW 
TSX 
T'XI 



COMP TSX 
TRA 



00113 0074 00 4 00003 

00114 00000 00274 

00115 0601 00 00260 



ENC 



TSX 
PZE 
STO 



PSEUDO-OPS. 

PRNT2.4 
NEXT 

*INT0P,4 
BUFF 
PRNT1.4 
NEXT 

0,0 

2,2 

6,4 

BuFF+2+2,2 

3 

3 

•-2,4,1 

OLP, 2,1 

0,1 

PRNT1.4 

NEXT, 1,-1 

PRNT2.4 
NEXT 

$VAREVL,4 

BUFF 

EPNT 



PRINT REMARK. 
RETURN. 

DO INTEGER CONVERSION. 

GO PRINT ASSEMBLY LISTING. 
RETURN. 

SIMPLE CCTAL, CLEAR AC. 

2 WORDS. 

6 CHARACTERS PER WORD. 

GET WORD. 

BCI-OCTAL CONVERSION. 

• • 

COUNT CHARACTERS. 

COUNT WORDS. 

INSERT IN ASSEMBLED PROGRAM. 

GO PRINT ASSEMBLY LISTING. 

INDEX AND RETURN. 

PRINT CCMP AS A REMARK. 
RETURN. 

EVALUATE VARIABLE FIELD. 

SAVE AS ENTRY POINT. 



PAS206B0 
PAS20690 
PAS20 700 
PAS20710 
PAS20720 
PAS20730 
PAS20740 
PAS20750 
PAS20760 
PAS20 770 
PAS20 780 
PAS20790 
PAS20800 
PAS20810 
PAS20820 
PAS20830 
PAS20840 
PAS20850 
PAS20860 
PAS20870 
PAS20880 
PAS20890 
PAS20900 
PAS20910 
PAS20920 
PAS20930 
PAS20940 
PAS20950 
PAS20960 



PASS 2 QF CLASS ASSEMBLY PROGRAM. 



00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 



0074 00 

0602 00 

0500 00 

0074 00 

0560 00 

-0765 00 

-0501 00 

0602 00 

-0130 00 

-0501 00 

0602 00 

-0500 00 

0602 00 

0602 00 

0074 00 

00023 

0774 00 

0500 00 

0442 00 

0020 00 



00204 
00267 
00260 
00225 
00312 
00022 
00316 
00272 
00000 
00315 
00273 
00317 
00270 
00271 
00005 
00267 
00000 
00260 
00263 
00001 



RX4 



TSX 


FLAGS, 4 


GET FLAGS. 


SLW 


PBUFF 


PLACE IN PBUFF. 


CLA 


EPNT 


CONVERT ENTRY POINT. 


TSX 


0CTA.4 


• • 


LDQ 


= 


CLEAR MO. 


LGR 


18 


SHIFT TO POSITION. 


OR A 


«H 000 


INSERT BLANKS LEFT. 


SLW 


PBUFF+3 


INSERT IN PBUFF. 


XCL 




GET RIGHT HALF. 


OR A 


sHOOO 


INSERT BLANKS RIGHT. 


SLW 


PBUFF+4 


INSERT IN PBUFF. 


CAL 


»H 


BLANK OUT REST OF PBUFF 


SLW 


PBUFF+i 


. . 


SLW 


PBUFF+2 


. . 


TSX 


SPRINT, 4 


GO PRINT. 


PZE 


PBUFF, 0, 19 


• • 


AXT 


••,4 


RESTORE IR4. 


CLA 


EPNT 


GET ENTRY. 


OS I 


FLGSM 


GET TOTAL ERROR FLAGS. 


TRA 


1,4 


RETURN. 



PAS20970 
PAS20980 
PAS20990 
PAS21000 
PAS21010 
PAS21020 
PAS21030 
PAS21040 
PAS21050 
PAS21060 
PAS21070 
PAS21080 
PAS21090 
PAS21100 
PAS21110 
PAS21120 
PAS21130 
PAS21140 
PAS21150 
PAS21160 



00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00170 
00171 
00172 

00173 
00174 
00175 
00176 
00177 



0634 00 

00 74 00 

0602 00 

0535 00 

0754 00 

0074 00 

0602 00 

0534 00 

-0500 00 

0074 00 

-0600 00 

-0765 00 

-0501 00 

0602 00 

-0600 00 

-C500 00 

0560 00 

•0765 00 

-0130 00 

-0501 00 

0602 00 

0074 00 

00023 

0774 00 

0020 00 



00171 
0020* 
00267 
00257 
00000 
00225 
00270 
00257 
00000 
00236 
00262 
00022 
00316 
00271 
00272 
00262 
00312 
00022 
00000 
00315 
00273 
00005 
00267 
00000 
00001 



SPACE 



PRNT1 SXA 
TSX 
SLW 
LAC 
PXA 
TSX 
SLW 
LXA 
CAL 
TSX 
STQ 
LGR 
OR A 
SLW 
STQ 
CAL 
LOQ 
LGR 
XCL 
OR A 
SLW 
TSX 
PZE 
AXT 
TRA 



PRINT ROUTINES. 



P1X4 



0634 00 4 00202 
0774 00 4 00005 
-0500 00 00317 
0602 00 4 00274 
2 00001 4 00176 



PRNT2 SXA 
AXT 
CAL 
SLW 
TIX 



P1X4.4 

FLAGS, 4 

PBUFF 

L0C4 

0,4 

0CTA.4 

PBUFF+1 

L0C.4 

0,4 

0CTW.4 

RHOCT 

18 

«H 000 

PBUFF+2 

PBUFF+3 

RHOCT 

»0 

18 

»H000 

PBUFF+4 

$PRINT,4 

PBUFF, 0,19 

• •,4 

1,4 

P2X4.4 

5,4 

-H 

PBUFF+5,4 

•-1,4,1 



SAVE IR4. 
GET ERROR FLAGS. 
PLACE IN PBUFF. 
GET +CILC). 

« • 

CONVERT OCTAL ADDRESS. 
PLACE IN PBUFF. 
GET -IILC1. 
GET ASSEMBLEO WORD. 
CONVERT OCTAL WORD. 
SAVE RIGHT HALF. 
SHIFT TO POSITION. 
INSERT BLANKS LEFT. 
PLACE IN PBUFF. 

• • 

GET RIGHT HALF. 

ZERO MQ. 

SHIFT TO POSITION. 

PLACE IN AC. 

INSERT BLANKS RIGHT. 

PLACE IN PBUFF. 

GO PRINT. 

• • 

RESTORE IR4. 
RETURN. 

SAVE IR4. 

BLANK OUT PBUFF TO PBUFF+4. 



PAS21170 
PAS21180 
PAS21190 
PAS21200 
PAS21210 
PAS21220 
PAS21230 
PAS21240 
PAS21250 
PAS21260 
PAS21270 
PAS21280 
PAS21290 
PAS21300 
PAS21310 
PAS21320 
PAS21330 
PAS21340 
PAS21350 
PAS21360 
PAS21370 
PAS21380 
PAS21390 
PAS21400 
PAS21410 
PAS21420 
PAS21430 
PAS21440 
PAS21450 
PAS21460 
PAS21470 
PAS21480 
PAS21490 
PAS21500 



PASS 2 OF CLASS ASSEMBLY PROGRAM. 



00200 


0074 00 4 


00005 




TSX 


»PRINT,4 


GO PRINT. 


00201 


0002 3 


00267 




PZE 


PBUFF,0,19 


• *. 


00202 


0774 00 4 


00000 


P2X4 


AXT 


•»,4 


RESTORE IR4 


00203 


0020 00 4 


00001 




TRA 


li4 


RETURN. 



PAS21510 
PAS21520 
PAS21530 
PAS21540 



SPACE 



BCI CONVERSION ROUTINES. 



00204 


0634 00 4 00223 


FLAGS SXA 


FLX4.4 


00205 


0140 00 00206 


TOV 


»+l 


00206 


-0046 00 00000 


PIA 




00207 


-0765 00 00003 


LGR 


NFLGS 


00210 


-0500 00 00314 


CAL 


=HOOOQ1 


00211 


0774 00 4 00003 


AXT 


NFLGS, 4 


00212 


0162 00 00215 


TOP 


• ♦3 


00213 


0767 00 00006 


ALS 


6 


00214 


0361 00 4 00267 


ACL 


TFLGS+NF 


00215 


-0773 00 00001 


RQL 


1 


00216 


2 00001 4 00212 


TIX 


•-4,4,1 


00217 


0560 00 00317 


LOQ 


*H 


00220 


0140 00 00223 


TOV 


• ♦3 


00221 


-0763 00 00006 


LGL 


6 


00222 


-0140 00 00221 


TNO 


*-l 


00223 


0774 00 4 00000 


FLX4 AXT 


• «,4 


00224 


0020 00 4 00001 


TRA 


1,4 


00225 


0634 00 4 00234 


OCT A SXA 


0AX4.4 


00226 


-0765 00 00017 


LGR 


15 


00227 


-0500 00 00313 


CAL 


'HOOOOO 


00230 


0774 00 4 00005 


AXT 


5,4 


C0231 


0767 00 00003 


ALS 


3 


00232 


-0763 00 00003 


LGL 


3 


00233 


2 00001 4 00231 


TIX 


•-2,4, 1 


00234 


0774 00 4 00000 


0AX4 AXT 


»•,« 


00235 


0020 00 4 00001 


TRA 


1,4 


00236 


0634 00 4 00255 


OCTW SXA 


0MX4,4 


00237 


-0130 00 00000 


XCL 




00240 


-0754 00 00000 


PXO 


0,0 


00241 


0774 00 4 00006 


AXT 


6,4 


00242 


0767 00 00003 


ALS 


3 


00243 


-0763 00 00003 


LGL 


3 


00244 


2 0000 1 4 00242 


TIX 


•-2,4, 1 


00245 


0602 00 00261 


SLU 


LHOCT 


00246 


-07 54 00 00000 


PXO 


0,0 


00247 


0774 00 4 00006 


AXT 


6,4 


00250 


0767 00 00003 


ALS 


3 


00251 


-0763 00 00003 


LGL 


3 


00252 


2 00001 4 00250 


TIX 


•-2,4, 1 


00253 


-0130 00 00000 


XCL 




00254 


-0500 00 00261 


CAL 


LHOCT 


00255 


0774 00 4 00000 


0WX4 AXT 


• •,4 


00256 


0020 00 4 00001 


TRA 


1,4 



SAVE IR4. 

TURN OFF OVERFLOW LIGHT. 

GET ERROR FLAGS. 

SHIFT TO MO. 

BLANK FOR CARRIAGE CONTROL. 

CONVERT FLAGS. 

IF PLUS, NO FLAG. 

INSERT FLAG. 

• • 

CHECK NEXT BIT. 

INDEX. 

FILL IN BLANKS ON RIGHT. 



RESTORE IR4. 
RETURN. 

SAVE IR4. 
SHIFT TO MO. 
FIRST, A BLANK. 
5 DIGITS. 
CONVERT TO BCI. 



RESTORE IR4. 
RETURN. 

SAVE IR4. 

PLACE IN MO. 

FIRST HALF, CLEAR AC. 

6 DIGITS. 

CONVERT. 



SAVE LEFT HALF. 
LAST HALF, CLEAR AC. 
6 DIGITS. 
CONVERT. 



FORM COMPLETE RESULT. 

RESTORE IR4. 
RETURN. 



PAS21550 

PAS21560 

PAS21570 

PAS21580 

PAS21590 

PAS21600 

PAS21610 

PAS21620 

PAS21630 

PAS21640 

PAS21650 

PAS21660 

PAS21670 

PAS21680 

PAS21690 

PAS21700 

PAS21710 

PAS21720 

PAS21730 

PAS21740 

PAS21750 

PAS21760 

PAS21770 

PAS21780 

PAS21790 

PAS21800 

PAS21810 

PAS21820 

PAS21830 

PAS21840 

PAS21850 

PAS21860 

PAS21870 

PAS21880 

PAS21890 

PAS21900 

PAS21910 

PAS21920 

PAS21930 

PAS21940 

PAS21950 

PAS21960 

PAS21970 

PAS21980 

PAS21990 

PAS22000 

PAS22010 

PAS22020 



PASS 2 OF CLASS ASSEMBLY PROGRAM. 



SPACE 



STORAGE AND CONSTANTS. 



00257 


00000 00000 


LOC 


PZE 




00260 


00000 00000 


EPNT 


PZE 




00261 


00000 00000 


LHOCT 


PZE 




00262 


00000 00000 


RHOCT 


PZE 




00263 


00000 00000 


FLGSM 


PZE 






00264 


TFLGS 


SYN 


• 


00264 


000000000025 




BCI 


ItCOCCOE 


00265 


000000000046 




BCI 


l.OOOCOO 


00266 


000000000064 




BCI 


l.OOOOOU 




00003 


NFLGS 


EQU 


•-TFLGS 


C0267 




PBUFF 


BSS 


19 




00274 


BUFF 


SYN 


PBUFF+5 



LITERALS 

00312 000000000000 

00313 000000000060 

00314 000000000160 

00315 000000606060 

00316 606060000000 

00317 606060606060 



END 



-<ILC) BEFORE CONVERSIONS. 
ENTRY POINT FROM ENO CARD. 
LEFT HALF OF OCTAL-BCI. 
RIGHT HALF OF OCTAL-BCI. 
TOTAL ERROR FLAGS. 

TABLE OF ERROR FLAGS. 

SI BIT 33. 

SI BIT 34. 

SI BIT 35. 

NUMBER OF ERROR FLAGS. 

PRINT BLFFER. 

START OF CARD IMAGE BUFFER. 



PAS22030 
PAS22040 
PAS22050 
PAS22060 
PAS22070 
PAS22 080 
PAS22090 
PAS22100 
PAS22110 
PAS22120 
PAS22130 
PAS22 140 
PAS22150 
PAS22160 
PAS22170 
PAS22180 
PAS22190 
PAS22200 
PAS22210 



PASS 2 OF CLASS ASSEMBLY PROGRAM. 
POST PROCESSOR ASSEMBLY DATA 

320 IS THE FIRST LOCATION NOT USEO BY THIS PROGRAM 
REFERENCES TO OEFINED SYMBOLS 



101, 11*, 312 



112 



113 


END 


67 








72 


INT 


61 








257 


LCC 


25, 


145, 


151 




100 


OLP 


1C5 








70 


REM 


57 








136 


RX4 


10 








274 


BUFF 


27, 


30, 


52, 


73, 


111 


COMP 


65 








260 


EPNT 


115, 


120, 


137 




223 


FLX4 


204 








22 


NEXT 


55. 


71, 


75, 


110, 


234 


0AX4 


225 








225 


OCTA 


121, 


147 






76 


OCTL 


63 








236 


OCTW 


153 








30 


OFLO 










255 


0WX4 


236 








171 


P1X4 


142 








202 


P2X4 


173 








56 


PTBL 


33, 


35, 


70 




2 


SCAN 


31 








204 


FLAGS 


116, 


143 






263 


FLGSM 


21, 


22, 


23, 


140 


4 


INTOP 


72 








261 


LHOCT 


245, 


254 






3 


NFLGS 


207, 


211, 


214, 


267 


12 


NPTBL 


32, 


33, 


35, 


70 


37 


OPAXT 


14 








47 


DPFND 


17, 


42, 


46 




40 


OPLAS 


16 











OPTBL 


12, 


15 






10 


PASS2 










267 


PBUFF 


117, 


125, 


130, 


132 


5 


PRINT 


134, 


167, 


200 




142 


PRNT1 


54, 


74, 


107 




173 


PRNT2 


70, 


111 






1 


REAC2 


26 








262 


RHOCT 


154, 


161 






264 


TFLGS 


214, 


264, 


267 




3 


VAREVL 


51, 


113 







133, 



135, 144, 150, 157, 160, 166, 170, 176, 201, 312 



NO ERROR IN ABOVE ASSEMBLY. „,„ TUC nc UI11 „Tet 

•TIME SPENT IN FAP.. 000009 IN HUNDREDTHS OF MINUTES. 



JVAREVL, SCAN AND EVALUATE VARIABLE FIELD OF CAP CARD. 



00034 
00005 



TRANSFER VECTOR 

00000 627014272563 

00001 622X65256060 

00002 644562216525 

LINKAGE DIRECTOR 

00003 000000000000 
C0004 516551256543 



PCC 

COUNT 

LBL 

ENTRY 

ENTRY 



SYMGET 

SAVE 

UNSAVE 



222 

VAREVL 
RVREVL 
VAREVL 



BINARY CARD LABEL. 

EVALUATE FIELDS BETWEEN COMMAS. 

EVALUATE FIRST FIELD. 



VEVL0010 
VEVL0020 
VEVL0030 
VEVL0050 
VEVL0060 



C0005 


06 34 


00 


4 


00030 


VAREVL 


SXA 


RX4.4 


00006 


06 34 


00 


2 


00031 




SXA 


RX2,2 


00007 


06 34 


00 


1 


00032 




SXA 


RX1, 1 


C0010 


-0500 


00 


4 


00001 




CAL 


1.4 


00011 


0361 


00 





00254 




ACL 


»12 


00012 


0621 


00 





00063 




ST A 


LDC 


00013 


0600 


00 





00245 




STZ 


TECF 


00014 


0600 


00 





00246 




STZ 


TCCM 


00015 


-0760 


00 





00141 




SLT 


1 


00016 


0761 


00 





00000 




NOP 




00017 


0774 


00 


2 


00012 




AXT 


10,2 


C0020 


0774 


00 


1 


00007 




AXT 


7,1 


00021 


C56C 


60 





00063 




LDQ» 


LOG 


00022 


-0600 


00 





00252 




STQ 


MO 


00023 


0074 


00 


4 


00052 


GEVAL 


TSX 


EVAL.4 


00024 


07 34 


00 


4 


00000 




PAX 


0,4 


C0025 


0120 


00 





00027 




TPL 


•♦2 


00026 


0737 


00 


4 


00000 




PAC 


0,4 


00027 


0754 


00 


4 


00000 




PXA 


0,4 


00030 


0774 


00 


4 


00000 


RX4 


AXT 


**,4 


000 31 


07 74 


00 


2 


00000 


RX2 


AXT 


»»»2 


00032 


0774 


00 


1 


00000 


RX1 


AXT 


••,1 


00033 


0020 


00 


4 


00002 




TRA 


2,4 



SAVE IRS. 



GET BUFFER ADDRESS. 

BUFF*12. 

SAVE FOR PICKUP. 

RESET EOF MARK. 

RESET COMMA MARK. 

TURN OFF LIGHT 1. 

• • 

COUNT 10 WORDS. 

COUNT 6 CHARACTERS. 

GET FIRST WORD OF VARIABLE FIELD. 

SAVE FOR EVAL. 

GO EVALUATE FIELD. 

PLACE RESULT IN IR4. 

PLUS OR MINUS. 

MINUS, FORM 2S COMPLEMENT. 

FINAL RESULT IN AIACI. 

RESTORE IRS. 



RETURN WITH RESULT IN AC. 



VEVL0070 

VEVL0080 

VEVL0090 

VEVL0100 

VEVL0110 

VEVL0120 

VEVL0130 

VEVL0140 

VEVL0150 

VEVL0160 

VEVL0170 

VEVL0180 

VEVL0190 

VEVL0200 

VEVL0210 

VEVL0220 

VEVL0230 

VEVL0240 

VEVL0250 

VEVL0260 

VEVL0270 

VEVL0280 

VEVL0 290 



C0034 
00035 
000 36 
00037 
C0040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00050 



-07 54 00 
-0520 00 
0020 00 
0600 00 
0600 00 
-0760 00 
0761 00 
1 00001 
0634 00 
0634 00 
0634 00 
0774 00 
0774 00 



00000 
00246 
00001 
00245 
00246 
00141 
00000 
00044 
000 30 
00031 
00032 
00000 
00000 



RVREVL 



REX1 
REX2 



SPACE 



PXO 
NZT 
TRA 
STZ 
STZ 
SLT 
NOP 
TXI 
SXA 
SXA 
SXA 
AXT 
AXT 



RE-ENTRY TO EVALUATE MULTIPLE FIELDS. 



0,0 
TCOM 
1,4 
TECF 

TCOM 

1 

•♦1,4,1 

RX4.4 

RX2.2 

RX1.1 

••,1 

••,2 



CLEAR AC. 

CHECK FOR COMMA ENCOUNTERED. 

NO, EXIT WITH ZERO. 

RESET EOF MARK. 

RESET COMMA MARK. 

TURN OFF LIGHT 1. 

• • 

DECREASE CALL LOCATION BY ONE. 
SAVE IRS. 



RESTORE IRS FOR POSITION IN FIELD. 



VEVL0300 
VEVL0310 
VEVL0320 
VEVL0330 
VEVL0 340 
VEVL0350 
VEVL0360 
VEVL0370 
VEVL0 380 
VEVL0390 
VEVL0400 
VEVL0410 
VEVL0420 
VEVL0430 
VEVL0440 
VEVL0450 



00051 0020 00 00023 



$VAREVL, SCAN AND EVALUATE VARIABLE FIELE OF CAP CARD. 

TRA GEVAL GO EVALUATE THIS FIELD. 



SPACE 



00052 


06 34 


00 4 00243 


EVAL 


SXA 


EVX4.4 


00053 


0600 


00 00241 




STZ 


SUM 


C0054 


0600 


00 00242 




STZ 


TERM 


0005 5 


0600 


OC 00251 




STZ 


VAL 


00056 


0600 


00 00250 




STZ 


SYM 


00057 


07 74 


00 4 00025 




AXT 


NPL,4 


00060 


0634 


00 4 00244 




SXA 


LBKCH.4 


0006L 


0020 


00 00100 




TRA 


RSCAN 


00062 


0774 


00 1 00006 


SCAN 


AXT 


6,1 


00063 


0560 


00 2 00000 


LDQ 


LDQ 


»»,2 


00064 


-07 54 


00 00000 


CHAR 


PXD 


0,0 


00065 


-0763 


00 00006 




LGL 


6 


00066 


-0600 


00 00252 




STQ 


MQ 


00067 


0774 


00 4 00025 




AXT 


NBK.4 


00070 


-0340 


00 4 00136 




LAS 


TABBK+NBK.4 


00071 


0020 


00 00073 




TRA 


» + 2 


00072 


00 20 


00 00136 




TRA 


BKCH 


00073 


2 00003 4 00070 




TIX 


•-3,4,3 


00074 


-0765 


00 00006 




LGR 


6 


00075 


-0500 


00 00250 




CAL 


SYM 


00076 


-0763 


00 00006 




LGL 


6 


00077 


0602 


00 00250 




SLW 


SYM 


COlOO 


05 20 


00 00245 


RSCAN 


I ZET 


TEOF 


C0101 


0020 


00 00106 




TRA 


EOFB 


00102 


0560 


00 00252 




LDQ 


MQ 


00103 


2 00001 1 00064 




TIX 


CHAR, 1, 1 


00104 


2 00001 2 00062 




TIX 


SCAN, 2,1 


00105 


-06 25 


00 00245 




STL 


TECF 


00106 


07 74 


00 4 00003 


EOFB 


AXT 


NRPAR.4 


00107 


-0500 


00 00255 




CAL 


*HCOGCO> 


001 10 


0020 


00 00136 




TRA 


BKCH 



EVALUATION SUBROUTINE, RECURSIVELY DEFINED. 



SAVE IR4. 

INITIALIZE REGISTERS. 



RESET SYM. 

SET LBKCH TO PLUS. 

GO TO SCANER. 

COUNT 6 CHARACTERS. 

PICKUP NEXT WORD. ADORESS IS BUFF+12. 

CLEAR AC. 

GET CHARACTER. 

SAVE MQ. 

COMPARE WITH LIST OF BREAKS. 

NOT THIS ONE, SKIP. 

BREAK FOUND, EXIT. 

NOT THIS ONE, INDEX AND TRY AGAIN. 

NOT A BREAK, BUILD SYMBOL. 



SAVE PARTIAL SYMBOL. 

TEST FOR END-OF-FIELD. 

YES, EXIT TO RPAR SECTION. 

NO, RESTORE MQ. 

COUNT CHARACTERS. 

COUNT WORDS. 

ENO-OF-FIELD REACHED, APPEND AS 

MANY RPAR AS NECESSARY. 

• • 

GO TO BREAK. 



SPACE 



TABLE OF BREAKS. 



00111 

00111 000000C00C20 

00112 0020 00 00172 

00113 0020 00 00210 

00114 000000000040 

00115 0020 00 00175 

00116 0020 00 00210 

00117 000000000054 

00120 0020 00 00200 

00121 0020 00 00215 

00122 000000000060 

00123 0000 60 00123 



ABBK 


SYN 


• 




PL 


BCI 


1.C0000+ 


PLUS. 




TRA 


LPL 


. * 




TRA 


RPL 


. . 




BCI 


1,00000- 


MINUS. 




TRA 


LMI 


. . 




TRA 


RMI 


. • 




BCI 


1,00000* 


STAR. 




TRA 


LST 


• • 




TRA 


RST 


. • 




BCI 


1,00000 


BLANK. 




HTR» 


• 


SHOULD NEVER GET HERE 



VEVL0460 



VEVL0470 

VEVL0480 

VEVL0490 

VEVL0500 

VEVL0510 

VEVL0520 

VEVL0530 

VEVL0540 

VEVL0550 

VEVL0560 

VEVL0570 

VEVL0580 

VEVL0590 

VEVL0600 

VEVL0610 

VEVL0620 

VEVL0630 

VEVL0640 

VEVL0650 

VEVL0660 

VEVL0670 

VEVL0680 

VEVL0690 

VEVL0700 

VEVL0710 

VEVL0720 

VEVL0730 

VEVL0740 

VEVL0750 

VEVL0760 

VEVL0770 

VEVL0780 

VEVL0790 

VEVL0800 

VEVL0810 



VEVL0820 
VEVL0830 
VEVL0840 
VEVL0850 
VEVL0860 
VEVL0870 
VEVL0880 
VEVL0890 
VEVL0900 
VEVL0910 
VEVL0920 
VEVL0930 
VEVL0940 
VEVL0950 
VEVL0960 
VEVL0970 



1VAREVL, SCAN AND EVALUATE VARIABLE FIELD OF CAP CARD. 



00124 0020 00 00237 

00125 000000000073 

00126 0000 60 00126 

00127 0020 00 00231 

00130 000000000074 

00131 0000 60 00131 

00132 002C 00 00216 

00133 000000000034 

00134 0000 60 00134 

00135 0020 00 00225 



TRA 
BCI 
HTR» 
TRA 
BCI 
HTR« 
TRA 
CRPAR BCI 
HTR* 
TRA 



00025 NBK EOU 
00003 NRPAR EOU 
00025 NPL EOU 



BLANK 
1,00000, 

• 

RCOM 

I, 000001 

• 

LPAR 

1,00000) 

• 

RPAR 

•-TABBK 
•-CRPAR 
•-CPL 



COMMA. 

Should never get here. 

LPAR. 

SHOULD NEVER GET HERE. 

RPAR. 

SHOULD NEVER GET HERE. 



NUMBER OF BREAK CHARACTERS. 
BREAK NUMBER OR RPAR. 
BREAK NUMBER OF PLUS. 



VEVL0980 
VEVL0990 
VEVL1000 
VEVL1010 
VEVL1020 
VEVL1030 
VEVL1040 
VEVL1050 
VEVL1060 
VEVL1070 
VEVL1080 
VEVL1090 
VEVL1100 
VEVL1110 



00136 
00137 
00140 
00141 
00142 
00143 
00144 
C0145 
00146 
00147 
00150 
00151 
00152 

00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 
00163 
C0164 
00165 
00166 



0634 00 

-0340 00 

0020 00 

0020 00 

0520 00 

0020 00 

-0500 00 

-0320 00 

0100 00 

-0500 00 

0074 00 

0601 00 

0020 00 

0560 00 
0774 00 
-0754 00 
-0763 00 
0601 00 
0500 00 
0767 00 
0400 00 
0767 00 
0400 00 
0601 00 
2 00001 



00247 
00256 
00142 
00216 
002 51 
00167 
00250 
00257 
00153 
00250 
00000 
00251 
00167 

00250 
00006 
00000 
00006 
00253 
00251 
00002 
00251 
00001 
00253 
00251 
00155 



BKCH 



SPACE 



SXA 
LAS 
TRA 
TRA 
ZET 
TRA 
CAL 
ANA 
TZE 
CAL 
TSX 
STO 
TRA 



BREAK CHARACTER SECTICN. 



NUM 



LDO 
AXT 
NLOOP PXD 
LGL 
STO 
CLA 
ALS 
ADD 
ALS 
ADD 
STO 
TIX 



RBKCH.4 

-HOOOCOf 

• ♦2 

LPAR 

VAL 

LBK 

SYM 

= H 

NUM 

SYM 

*SYMGET,4 

VAL 

LBK 

SYM 

6,4 

0,0 

6 

DIG 

VAL 

2 

VAL 

I 

DIG 

VAL 

NLC0P,4,1 



SAVE NUMBER OF RIGHT BREAK. 

CHECK FOR LPAR. 

NO, SKIP. 

YES, GO TO IT. 

EXPRESSION, SYMBOL, OR NUMBER. 

EXPRESSION, NO SYMBOL TO CONVERT. 

SYMBOL OR NUMBER. 

NUMBERS HAVE NO ZONE. 

NUMBER, GO CONVERT. 

SYMBOL, GET VALUE. 

• • 

SAVE VALUE. 
EXIT TO LBK. 

NUMBER, UNSIGNED. 

COUNT 6 DIGITS. 

CLEAR AC. 

GET DIGIT. 

SAVE. 

PROGRAMED 10»VAL. 

4«VAL. 

4»VAL+VAL. 

2»I4«VAL*VAL)=10»VAL. 

ADD THIS DIGIT. 

SAVE PARTIAL RESULT. 

COUNT DIGITS CONVERTED. 



VEVL1120 

VEVL1130 

VEVL1140 

VEVL1150 

VEVL1160 

VEVL1170 

VEVL1180 

VEVLU90 

VEVL1200 

VEVL1210 

VEVL1220 

VEVL1230 

VEVL1240 

VEVL1250 

VEVL1260 

VEVL1270 

VEVL1280 

VEVL1290 

VEVL1300 

VEVL1310 

VEVL1320 

VEVL1330 

VEVL1340 

VEVL1350 

VEVL1360 

VEVL1370 

VEVL1380 

VEVL1390 

VEVL1400 



00167 0600 00 00250 

00170 0534 00 4 00244 

00171 0020 00 4 00137 



00172 
00173 



0500 00 00251 
0601 00 00242 



LBK 



LPL 



SPACE 



STZ 
LXA 

TRA 

CLA 
STO 



LEFT BREAK SECTION 

SYW LEFT BREAK, RESET SYM. 

LBKCH.4 GET NUMBER OF LEFT BREAK. 
TABBK+NBK+1,4 GO TO LEFT BREAK. 



VAL 
TERM 



♦, TERM=VAL. 



VEVL1410 
VEVL1420 
VEVL1430 
VEVL1440 
VEVL1450 
VEVH460 
VEVL1470 
VEVL1480 
VEVL1490 



tVAREVL, SCAN AND EVALUATE VARIABLE FIELD OF CAP CARD. 



00174 0020 00 00204 

00175 0502 00 00251 

00176 0601 00 00242 

00177 0020 00 00204 

00200 0560 00 00251 

00201 0200 00 00242 

00202 -0600 00 00242 

00203 0020 00 00204 



00204 0534 00 4 00247 

00205 0634 00 4 00244 

00206 0600 00 00251 

00207 0020 00 4 00140 



00210 
00211 
00212 
00213 
00214 



0500 00 
0400 00 
0601 00 
0600 00 
0020 00 



00241 
00242 
00241 
00242 
00100 

00210 



00215 0020 00 00100 



00216 
00217 
00220 
00221 
00222 
00223 
00224 

00225 
00226 
00227 
00230 

00231 
00232 
00233 
00234 
00235 
00236 

00237 

00240 



0074 00 
00004 
0074 00 
0601 00 
0074 00 
00004 
0020 00 



00001 
00241 
00052 
00251 
00002 
00241 
00100 



0500 00 00241 
0400 00 00242 
0534 00 4 00243 
0020 00 4 00001 



LHI 



LST 



-0625 00 
-0625 00 
0760 00 
06 34 00 
06 34 00 
0020 00 



00246 
00245 
00141 
00047 
00050 
00225 



TRA 

CLS 
STO 
TRA 

LDQ 
MPY 
STO 
TRA 



SPACE 



LXA 
SXA 
STZ 
TRA 

CLA 
ADO 
STO 
STZ 
TRA 



RMI SYN 
RST TRA 

SPACE 



RBK 



RPL 



LPAR 



-0625 00 00245 
0020 00 00225 



TSX 
PZE 
TSX 
STO 
TSX 
PZE 
TRA 

CLA 
ADD 
LXA 
TRA 

STL 
STL 
SLN 
SXA 
SXA 
TRA 



BLANK STL 
TRA 



RPAR 



RCOM 



RBK 

VAL 

TERM 

RBK 

VAL 
TERM 
TERM 
RBK 



GO TO RIGHT BREAK. 
-, TERM=-VAL. 
GO TO RIGHT BREAK. 
», TERM»TERM»VAL. 

* • 

GO TO RIGHT BREAK. 



RIGHT BREAK SECTION. 

RBKCH.4 GET NUMBER OF RIGHT BREAK. 
LBKCH.4 THIS IS NEXT LEFT BREAK. 
VAL RESET VAL. 

TABBK+NBK+2,4 GO TO RIGHT BREAK. 



SUM 

TERM 

SUM 

TERM 

RSCAN 

RPL 

RSCAN 



LPAR, RPAR, 

$ SAVE, 4 

SUM, 0,4 

EVAL,4 

VAL 

$UNSAVE,4 

SUM, 0,4 

RSCAN 

SUM 
TERM 
EVX4.4 
1,4 

TCCM 

TEOF 

1 

REXl.l 

REX2,2 

EOF 

TEOF 

EOF 



♦, SUM»SUM*TERM. 

RESET TERM. 
RESUME SCAN. 

-, SAME AS ♦. 

•, RESUME SCAN. 

AND EOF SECTION. 

(, SAVE REGISTERS. 

CALL SELF. 
RESULT IS VAL. 
RESTORE REGISTERS. 

RESUME SCAN. 

), END OF EXPRESSION, GET SUM. 
ADD IN CURRENT TERM. 
RESTORE IR4. 
RETURN TO CALLER. 

SET MARK FOR COMMA ENCOUNTERED. 
SET MARK FOR EOF. 

EXTERNAL MARK FOR COMMA ENCOUNTERED. 
SAVE IRS FOR RE-SCAN. 

GO TO ECF SECTION. 

ENC-OF-FIELD. 



VEVL1500 
VEVL1510 
VEVL1520 
VEVL1530 
VEVL1540 
VEVL1550 
VEVL1560 
VEVL1570 
VEVL1580 
VEVL1590 



VEVL1600 
VEVL1610 
VEVL1620 
VEVL1630 
VEVL1640 
VEVL1650 
VEVL1660 
VEVL1670 
VEVL1680 
VEVL1690 
VEVL1700 
VEVL1710 
VEVL1720 
VEVL1730 
VEVL1740 
VEVL1750 
VEVL1760 



VEVL1770 

VEVL1780 

VEVL1790 

VEVL1800 

VEVL1810 

VEVL1820 

VEVL1830 

VEVL1840 

VEVL1850 

VEVL1860 

VEVL1870 

VEVL1880 

VEVL1890 

VEVL1900 

VEVL1910 

VEVL1920 

VEVL1930 

VEVL1940 

VEVL1950 

VEVL1960 

VEVL1970 

VEVL1980 

VEVL1990 

VEVL2000 

VEVL2010 



$VAREVL, SCAN AND EVALUATE VARIABLE FIELD OF CAP CARD. 
00225 EOF SYN RPAR SAME AS RPAR. 



VEVL2020 
VEVL2030 



00241 00000 00000 

00242 00000 00000 

00243 00000 00000 

00244 00000 00000 



SPACE 



SUM PZE 
TERM PZE 
EVX4 PZE 
LBKCH PZE 



STORAGE AREA FOR SAVE. 



VEVL2040 
VEVL2050 
VEVL2060 
VEVL2070 
VEVL2080 
VEVL2090 
VEVL2100 



SPACE 



TEMPORARY STORAGE. 



00245 


00000 00000 


TEOF 


PZE 


00246 


00000 00000 


TCOM 


PZE 


00247 


00000 00000 


RBKCH 


PZE 


00250 


00000 00000 


SYM 


PZE 


00251 


00000 00000 


VAL 


PZE 


00252 


00000 00000 


MO 


PZE 


00253 


OCCOC 00000 


CIG 


PZE 
ENO 


LITERALS 






00254 


000000000014 






00255 


000000000034 






00256 


000000000074 






C0257 


606060606060 







VEVL2110 
VEVL2120 
VEVL2130 
VEVL2140 
VEVL2150 
VEVL2160 
VEVL2170 
VEVL2180 
VEVL2190 
VEVL2200 
VEVL2210 
VEVL2220 



IVAREVL, SCAN AND EVALUATE VARIABLE FIELD OF CAP CARD. 
POST PROCESSOR ASSEMBLY OATA 

260 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 
REFERENCES TO DEFINED SYMBOLS 



252 


MQ 


22, 


66, 


102 








111 


CPL 


136 












253 


DIG 


157, 


164 










225 


EOF 


236, 


240, 


241 








167 


LBK 


143, 


152 










63 


LCQ 


12, 


21 










175 


LMI 


115 












172 


LPL 


112 












200 


LST 


120 












25 


NeK 


67, 


70, 


136, 


171, 


207 




25 


NPL 


57, 


136 










153 


NUM 


146 












204 


RBK 


174, 


177, 


203 








210 


RMI 


116, 


215 










210 


RPL 


113, 


215 










215 


RST 


121 












32 


RX1 


7, 


46 










31 


RX2 


6, 


45 










30 


RX4 


5, 


44 










241 


SUM 


53, 


210, 


212, 


217, 


223, 


225 


250 


SYM 


56, 


75, 


77, 


144, 


147, 


153, 167 


251 


VAL 


55, 


142, 


151, 


160, 


162, 


165, 172 


136 


BKCH 


72, 


110 










64 


CHAR 


1C3 












106 


EOFB 


101 












52 


EVAL 


23, 


220 










243 


EVX4 


52, 


227 










216 


LPAR 


132, 


141 










231 


RCOM 


127 












47 


REX1 


234 












50 


REX2 


235 












225 


RPAR 


135, 


241 










1 


SAVE 


216 












62 


SCAN 


104 












246 


TCOM 


14, 


35, 


40, 


231 






245 


TEOF 


13, 


37, 


IOC, 


105, 


232, 


237 


242 


TERM 


54, 


173, 


176, 


201, 


202, 


211. 213 


237 


BLANK 


124 












133 


CRPAR 


136 












21 


GEVAL 


51 












244 


LBKCH 


60, 


170, 


205 








155 


NLCCP 


166 












3 


NRPAR 


106, 


136 










247 


RBKCH 


136, 


204 










100 


RSCAN 


61, 


214, 


215, 


224 






111 


TABBK 


70, 


111, 


136, 


171, 


207 




34 


RVREVL 

















SYMGET 


150 












2 


UNSAVE 


222 












5 


VAREVL 















175, 200, 206, 221 



226 



NO ERROR IN ABOVE ASSEMBLY. „„„. 

•TIME SPENT IN FAP.. 000010 IN HUNDREDTHS OF MINUTES. 



OPERATION TABLE FOR CAP. 



00002 

LINKAGE DIRECTOR 

00000 000000000000 

00001 464763224360 

C0002 00104 00003 



PCC 

COUNT 79 

LBL OPTBL 

ENTRY OPTBL 



BINARY CARD LABEL. 
ENTRY TO POINTER WORD. 



00003 
00004 
C0005 
00006 
00007 
00010 
00011 
00012 
C0013 
00014 
C0015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
C002 5 
00026 
00027 
00030 
C0031 
00032 
G0033 
00034 
C0035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
000 55 
00056 
00057 



000000212343 
+036100000000 

000000214521 
-032000000000 

000000232143 
-050000000000 

000000233062 
+076000000002 

000000234321 
+050000000000 

000000234362 
+050200000000 

000000234644 
+076000000006 

000000262124 
+030000000000 

000000262447 
♦02410000C000 

000000264447 
♦026000000000 

000000266222 
+030200000000 

000000432123 
+053500400000 

000000432162 
-034000000C00 

000000432263 
♦076000000001 

000000432450 
+056000000000 

000000432743 
-076300000000 

000000432751 
-076500000000 

000000436721 
♦053400400000 

000000 465121 
-050100000000 

000000472263 
-076000000001 

000000515043 
-077300000000 

000000624366 
♦060200000000 

000000626346 



OPTBL PZE 


•♦1,0, LTH CONTROL WORD. 


BCI 


l.OOOACL CAP MNEMONIC. 


OCT 


03410C000C00 7090 INSTRUCTION 


BCI 


l.CCOANA 


OCT 


432O0C00O000 


BCI 


l.OOOCAL 


OCT 


450000000000 


BCI 


l.COOCHS 


OCT 


076000000C02 


BCI 


l.OOOCLA 


OCT 


050000000000 


BCI 


l.OOOCLS 


OCT 


05C20COOOOOO 


BCI 


l.OOOCOM 


OCT 


07600C000006 


BCI 


l.COCFAD 


OCT 


03C00C000000 


BCI 


l.OOOFDP 


OCT 


O2410COO00OO 


BCI 


l.COOFHP 


OCT 


026000000000 


BCI 


l.OOOFSB 


OCT 


03C20C00OCOO 


BCI 


l.COOLAC 


OCT 


053500400000 


BCI 


l.OOOLAS 


OCT 


43400C000000 


BCI 


l.CCOLBT 


OCT 


07600C000001 


BCI 


l.OOOLDQ 


OCT 


O56O0COOC00O 


BCI 


l.COCLGL 


OCT 


476300000000 


BCI 


l.OOOLGR 


OCT 


4765OC0000O0 


BCI 


l.COOLXA 


OCT 


053400400000 


BCI 


l.OOOORA 


OCT 


450100000000 


BCI 


l.OOOPBT 


OCT 


476000000C01 


BCI 


l.OOOROL 


OCT 


47730C000C00 


BCI 


l.COOSLW 


OCT 


060200000000 


BCI 


l.OOOSTO 



0PTB0010 
0PTB0020 
OPTB0040 
OPTB0050 



OPTB0060 

0PTB0070 

OPTB0080 

OPTB0090 

OPTB0100 

0PTB0110 

0PTB0120 

OPTB0130 

OPT BO 140 

OPTB0150 

OPTB0160 

OPTB0170 

0PTB018O 

0PTB0190 

OPTB0200 

OPTB0210 

OPTB0220 

0PTB0 230 

OPTB0240 

OPTB0 250 

OPTB0260 

OPT BO 270 

OPTB0280 

OPTB0290 

0PTB0300 

OPTB0310 

OPTB0320 

OPTB0330 

OPT BO 340 

OPTB0350 

OPTB0360 

OPTB0370 

OPTB0380 

OPTB0390 

OPTB0400 

0PTB0410 

OPTB0420 

OPTB0430 

OPTB0440 

OPTB0450 

0PTB0460 

OPTB0470 

OPTB0480 

OPTB0490 

OPTB0500 

OPTB3510 

OPTB0520 



OPERATION TABLE FOR CAP. 



00 



00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
C0077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 



♦060100000000 

000000 626350 
-060000000000 

000000 626721 
+06 3400 400000 

000000633167 
♦200001400000 

000000634431 
-012000000000 

000000634743 
♦012000000000 

000000635047 
♦016200000000 

000000635121 
♦002000000C00 

000000636267 
♦007400400000 

000000637125 
+010000000000 

000000672321 
+013100000000 

000000672343 
-013000000C00 



00104 



LTH 



OCT 


060100000000 


BC1 


l.OOOSTO 


OCT 


46000C000C00 


aci 


l.OOOSXA 


OCT 


063400400000 


BCI 


l.OOOTIX 


OCT 


200001400C00 


BCI 


l.COOTMI 


OCT 


412000000000 


BCI 


l.OOOTPL 


OCT 


012000000000 


BCI 


l.COOTQP 


OCT 


016200000000 


BCI 


l.OOOTRA 


OCT 


OO2O0OOO0C00 


BCI 


l.COOTSX 


OCT 


007400400000 


BCI 


l.OOOTZE 


OCT 


01000COOOCOO 


BCI 


l.COOXCA 


OCT 


013100000000 


BCI 


liOOOXCL 


OCT 


413000000000 


EQU 


•-0PTBL-1 



2«(NUM8ER OF ALLCWED OPERATIONS). 



END 



OPTB3 530 
OPTB0540 
OPTB0550 
OPT BO 560 
OPTB0 570 
OPTB0580 
OPTB0 590 
OPTB0600 
OPTB0610 
OPTB0 620 
OPTB0630 
OPTB0640 
OPTB0650 
OPTB0 660 
OPTB3670 
OPTB0680 
OPTB0690 
OPTB0700 
0PTB0710 
OPTB0720 
OPTB3730 
OPTB0740 
OPTB0750 
0PTB0760 
OPTB0770 
OPTB0780 
OPTB0790 



POST PROCESSOR ASSEMBLY DATA 
107 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 

REFERENCES TO DEFINED SYMBOLS 
104 LTH 2, 107 
2 OPTBL 107 



NO ERROR IN ABOVE ASSEMBLY. 

•TIME SPENT IN FAP.. 000004 IN HUNDREDTHS OF MINUTES. 



INTOP, EVALUATE INT PSEUDO-OP. 



00002 



PCC 




COUNT 


99 


LBL 


INTOP 


ENTRY 


INTOP 



LINKAGE DIRECTOR 

00000 000000000000 

00001 314563464760 



000C2 


0634 


00 


4 


00112 


INTCP 


SXA 


RX4.4 


00003 


0634 


00 


2 


00113 




SXA 


RX2,2 


00004 


0634 


00 


1 


00066 




SXA 


HX1.1 


00005 


-0500 


00 


4 


00001 




CAL 


lr4 


00006 


0361 


oc 





00122 




ACL 


-12 


00007 


0621 


00 





00014 




STA 


SCAN 


00010 


0600 


00 





00115 




STZ 


INT 


C0011 


0600 


00 





00117 




STZ 


TER 


00012 


060C 


00 





00120 




STZ 


TDG 


00013 


0774 


00 


2 


00012 




AXT 


10,2 


00014 


0560 


00 


2 


00000 


SCAN 


LDO 


••,2 


00015 


07 74 


00 


4 


00006 




AXT 


6,4 


00016 


-0754 


00 





oooco 




PXD 


0,0 


00017 


-0763 


00 





00006 




LGL 


6 


COO 20 


-0340 


00 





00121 




LAS 


= 1C 


00021 


0020 


00 





00036 




TRA 


CHAR 


00022 


0020 


00 





00054 




TRA 


ERROR 


00023 


-0625 


00 





00120 




STL 


TDG 


00024 


C601 


00 





00116 




STO 


DIG 


00025 


0500 


00 





00115 




CLA 


INT 


00026 


0767 


00 





00002 




ALS 


2 


00027 


0400 


00 





00115 




ADO 


INT 


00030 


0767 


00 





00001 




ALS 


1 


00031 


0361 


00 





00116 




ACL 


DIG 


00032 


0601 


00 





00115 




STO 


INT 


00033 


2 0000 1 


4 


00016 


RSCAN 


TIX 


SCAN+2,4,1 


00034 


2 00001 


2 


00014 




TIX 


SCAN, 2,1 


00035 


0020 


00 





00102 




TRA 


BLANK 


00036 


0774 


00 


1 


00010 


CHAR 


AXT 


NBK.l 


00037 


-0340 


00 


1 


00054 




LAS 


TABBK+NBK.l 


00040 


0020 


00 





00042 




TRA 


• ♦2 


00041 


0020 


60 


1 


00055 




TRA* 


TABBK+NBK+1 


00042 


2 00002 


1 


00037 




TIX 


•-3,1,2 


00043 


0020 


00 





00054 




TRA 


ERROR 


00044 


000000000020 


TABBK 


BCI 


1,00000+ 


00045 


0020 


00 





00057 




TRA 


PLUS 


00046 


000000000040 




BCI 


l.COCCO- 


00047 


0020 


00 





00062 




TRA 


MIMJS 


00050 


000000000073 




BCI 


l.COOOO, 


00051 


0020 


00 





00066 




TRA 


COMMA 


00052 


000000000060 




BCI 


1,00000 


C0053 


0020 


00 





00102 




TRA 


BLANK 










00010 


NBK 


EOU 


•-TABBK 



BINARY CARD LABEL. 
PSEUDO-OP 'INT' EVALUATOR. 



SAVE IRS. 



GET BUFFER ORIGIN. 
FORM BUFF+12. 

CLEAR CONVERSION. 
RESET ERROR MARK. 
RESET DIGIT MARK. 
SCAN TEN WORDS. 

GET BUFFER WORD. ADORESS IS BUFF+12. 

SIX CHARACTERS. 

CLEAR AC. 

GET CHARACTER. 

CHECK FCR DIGIT. 

MUST BE CHARACTER. 

NO CHARACTER FOR CODE TEN. 

DIGIT ENCOUNTERED, SET MARK. 

SAVE DIGIT. 

PROGRAMMED MULTIPLICATION OF INT BY TEN. 

4»INT. 

4»INT*INT=5»INT. 

2*(4»INT+INT)*10«INT. 

ADO DIGIT, IGNORING SIGN. 

SAVE. 

COUNT CHARACTERS. 

COUNT WORDS. 

ENO OF FIELD EQUIVALENT TO BLANK. 

COMPARISON LOOP, GET NUMBER OF BREAKS. 

COMPARE WITH TABLE. 

NOT THIS ONE, TRY AGAIN. 

BREAK FOUND, GO TO IT. 

NOT THIS ONE, INDEX AND TRY AGAIN. 

CANT FIND BREAK, ERROR. 

BREAK TABLE, PLUS. 

MINUS. 

COMMA. 

• * 

BLANK. 

LENGTH OF BREAK TABLE. 



INTP0010 
INTP0020 
INTP0040 
INTP0050 



INTP0060 
INTP0070 
INTP0080 
INTP0090 
INTP0100 
INTP0110 
INTP0120 
INTP0130 
INTP0140 
1NTP0150 
INTP0160 
INTP0170 
INTP0180 
INTP0190 
INTP0200 
INTP0210 
INTP0220 
INTP0230 
INTP0240 
INTP0250 
INTP0260 
INTP0270 
INTP0280 
INTP0290 
INT PO 300 
INTP0310 
INTP0320 
INTP0330 
INTP0 340 
INTP0350 
INTP0360 
INTP0 370 
INTP03S0 
INTP0 390 
INTP0400 
INTP0410 
1NTP0420 
INTP0430 
INTP0440 
INTP0450 
INT PO 460 
INTP0470 
INTP0480 
INTP0490 
INTP0500 
INTP0510 
INTP0520 



INTOP, EVALUATE INT PSEUDO-OP. 



00054 
00055 
00056 

000 57 
00060 
00061 

00062 
00063 
00064 
00065 

00066 
00067 
COO 70 
00071 
00072 
C0073 
00074 
00075 
00076 
00077 
00100 
00101 



00102 
00103 
00104 
00105 
00106 
00107 
C0110 
00111 

00112 
C0113 
00114 



0055 00 000004 

-0625 00 00117 

0020 00 00033 

0520 00 00120 
0020 00 00054 
0020 00 00033 

0520 00 00120 

0020 00 00054 

0502 00 00115 

0020 00 00032 



0774 00 
0500 00 
0767 00 
0520 00 
-0754 00 
060C 00 
0601 00 
0600 00 
0600 00 
1 77777 
0634 00 
0020 00 



1 00000 
00115 
00022 
00117 
00000 

00117 

1 00000 
00115 

00120 
00100 
00066 
00033 



0534 00 

0500 00 

0767 00 

0520 00 

-0754 00 

0600 00 

0601 00 
1 77777 



00066 

00066 
00115 
00022 
00117 
00000 
00117 
00000 
00112 



0774 00 4 00000 
0774 00 2 00000 
0020 00 4 00002 



C0115 00000 00000 

00116 OCOOO 00000 

00117 00000 00000 
00120 00000 00000 



ERROR SIR 
STL 
TRA 



PLUS 



ZET 

TRA 
TRA 



MINUS ZET 
TRA 
CLS 
TRA 



COMMA 



HX1 



AXT 
CLA 
ALS 
ZET 
PXD 
STZ 
STO 
STZ 
STZ 
TXI 
SXA 
TRA 

SYN 



BLANK LXA 
CLA 
ALS 
ZET 
PXD 
STZ 
STO 
TXI 

RX4 AXT 

RX2 AXT 

TRA 



INT 
DIG 
TER 
TOG 



PZE 
PZE 
PZE 
PZE 

END 



4 

TER 

RSCAN 

TDG 

ERROR 

RSCAN 

TOG 
ERROR 
INT 
RSCAN-1 

• »,1 

INT 

18 

TER 

0,0 

TER 

Oil 

INT 

TDG 

•+1,1,-1 

HX1.1 

RSCAN 

CO^MA 

HX1.1 

INT 

18 

TER 

0.0 

TER 

0,1 

•+1,1,-1 

...4 
••.2 
2,4 



MARK INTOP ERROR. 

MARK ERROR IN THIS WORD. 

RESUME SCAN. 

PLUS SIGN, ILLEGAL AFTER DIGIT. 
NG, GO MARK ERROR. 
OK, IGNORE PLUS. 

MINUS SIGN, ILLEGAL AFTER DIGIT. 

IF LEGAL, CHANGE SIGN OF INT. 



FIELD MARK, STORE THIS WORD, AND, 
PREPARE FOR NEXT WORD. 

TEST FOR ERROR IN THIS WORD. 
YES, CONVERSION IS ZERO. 
RESET ERROR MARK. 



RESET DIGIT MARK. 



STORAGE FOR IR1 IS IN COMMA. 

END OF FIELD MARK, STORE THIS WORD, 
AND PREPARE TO EXIT. 

TEST FOR ERROR IN THIS WORD. 
YES, CLEAR CCNVERSION. 
RESET ERROR MARK. 

COUNT LAST WORD CONVERTED. 

RESTORE IRS. 

EXIT TO CALLER. 

STORAGE FOR CONVERSION. 

STCRAGE FOR DIGIT. 

MARK FOR ERROR THIS WORD. 

MARK FOR DIGIT ENCOUNTERED THIS FIELD. 



INTP0530 

INTP0540 

INTP0550 

INTP0560 

INTP0570 

INTP0580 

INTP0590 

I NT PO 600 

INTP0610 

INTP0620 

INTP0630 

INTP0640 

INTP3650 

INTP0660 

INTP0670 

INTP06B0 

INTP0690 

INTP0700 

INTP0710 

INTP0720 

INTP0730 

INTP0740 

INTP0750 

INTP0760 

INTP0770 

INTP0780 

INTP0 790 

INTP0800 

INTP0810 

INTP0820 

INTP0830 

INTP0840 

INTP3850 

INTP0860 

INTP0870 

INTP0880 

INTP0890 

INTP09OO 

INTP0910 

INTP0920 

INTP0930 

INTP0940 

INTP0950 

INTP0960 

INTP0970 

INTP0980 

INTP0990 



LITERALS 

00121 000000000012 

00122 000000000014 



INTOP, EVALUATE INT PSEUDO-OP. 
POST PROCESSOR ASSEMBLY DATA 

123 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 
REFERENCES TO OEFINED SYMBOLS 



116 


DIG 


24, 


31 








66 


HX1 


4, 


100, 


1C2 






115 


INT 


10, 


25, 


27, 


32, 


64, 


10 


NBK 


36, 


37, 


41, 


54 




113 


RX2 


3 










112 


RX4 


2 










120 


TCG 


12, 


23, 


57, 


62, 


76 


117 


TER 


lit 


55, 


71, 


73, 


105, 


36 


CHAR 


21 










57 


PLUS 


45 










U 


SCAN 


7, 


33, 


34 






102 


BLANK 


35, 


53 








66 


COMMA 


51, 


102 








5A 


ERROR 


22, 


43, 


60, 


63 




2 


INTOP 












62 


MINUS 


47 










33 


RSCAN 


56, 


61, 


65, 


101 




44 


TABBK 


37, 


41, 


54 







67, 75, 103 



107 



NO ERROR IN ABOVE ASSEMBLY. 

•TIME SPENT IN FAP.. 000005 IN HUNDREDTHS OF MINUTES. 



UTILITY PROGRAMS FOR CAP. 





PCC 






COUNT 


114 




LBL 


UTIL 


00024 


ENTRY 


COMMA 


00052 


ENTRY 


SAVE 


00074 


ENTRY 


UNSAVE 


00002 


ENTRY 


SCAN 



BINARY CARD LABEL. 
COUNT COMMAS IN VARIABLE FIELO. 
ENTER WORDS IN PUSH-DOWN LIST. 
REMOVE WOROS FROM PUSH-DOWN LIST. 
ONE WORD EDITOR. 



SSCAN, REMOVE BLANKS FROM THE 
WORD IN LACf AND COMPRESS TO RIGHT. 



UTIL0010 
UTIL0020 
UTIL0040 
UTIL0050 
UTIL0060 
UTIL0070 
UTIL0080 
UTIL0090 
UTIL0100 
UTIL0110 
UTIL0120 



LINKAGE CIRECTOR 

coooo ooooooococoo 

00001 234644442160 



00002 
C0003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 



0634 CO 

-0130 00 

0774 00 

0600 00 

-0754 00 

-0763 00 

-0340 00 

0020 00 

0020 00 

-0765 00 

-0500 00 

-0763 00 

0602 00 

2 OCOOl 

-0500 00 

0774 00 

0020 00 



00021 
00000 
00006 
00023 
OOCOO 
00006 
01107 
00013 
00017 
00006 
00023 
00006 
00023 
00006 
00023 
00000 
00001 



SCAN SXA 
XCL 
AXT 
STZ 

SLOOP PXD 
LGL 
LAS 
TRA 
TRA 
LGR 
CAL 
LGL 
SLW 

RSCAN TIX 
CAL 
AXT 
TRA 



SCX4 



00023 00000 00000 



WORD PZE 



SCX4.4 

6,4 

WORD 

0,0 

6 

-060 

» + 2 

RSCAN 

6 

WORD 

6 

WORD 

SLOOP, 4,1 

WORD 

...4 

1,4 



END OF SCAN. 



SAVE IR4. 

PLACE WCRO IN MO. 

COUNT SIX CHARACTERS. 

CLEAR COMPRESSED WORO. 

CLEAR AC. 

GET CHARACTER. 

CHECK FOR BLANK. 

NO, SKIP. 

YES, IGNORE. 

NO BLANK, BUILD WORD. 



SAVE PARTIAL NORC. 

COUNT CHARACTERS. 

GET COMPRESSED WORD. 

RESTORE IR4. 

RETURN WITH RESULT IN AC. 

STORAGE FOR PARTIAL WORD. 



UTIL0130 
UTIL0140 
UTIL0150 
UTIL0160 
UTIL0170 
UTIL0180 
UTIL0190 
UTIL0200 
UTIL0210 
UTIL0220 
UTIL0230 
UTIL0240 
UTIL0250 
UTIL0260 
UTIL0270 
UTIL0280 
UTIL0290 
UTIL0300 
UTIL0310 
UTIL0320 
UTIL0330 



UTILITY PROGRAMS FOR CAP. 



EJECT 



SCOMMA, COUNT COMMAS IN VARIABLE 
FIELD PLUS ONE TO FIRST BLANK OR COLUMN 
72. COUNT IS SUBTRACTED FROM IR1. 



00024 


0634 00 


4 


00047 


COMMA 


SXA 


C0X4,4 


SAVE IRS. 


00025 


0634 00 


2 


00050 




SXA 


C0X2.2 




00026 
00027 


-0500 00 
0361 00 


4 



00001 
01106 




CAL 
ACL 


lt4 
*12 


GET BUFFER ADDRESS. 
PLUS 12. 


00030 


0621 00 





000 33 




ST A 


LOC 


STA IN PICKUP. 


00031 


0774 00 


4 


00012 




AXT 


10,4 


SCAN BUFF*2 TO BUFF+12. 


00032 


0774 00 


2 


00006 


CLP4 


AXT 


6,2 


SIX CHARACTERS. 


00033 


0560 00 


4 


00000 


LOQ 


LDQ 


••,4 


GET WORD. 


00034 


-0754 00 





00000 


CLP2 


PXO 


0,0 


CLEAR AC. 


00035 


-0763 00 





00006 




LGL 


6 


GET CHARACTER. 


00036 


-0340 00 





OHIO 




LAS 


=HCOOOO, 


CHECK FOR COMMA. 


00037 


0020 00 





00044 




TRA 


RCLP 


NO, CANT BE BLANK. 


00040 
00041 


1 77777 
-0340 00 


1 




00044 
01107 




TXI 
LAS 


RCLP, 1,-1 

•HCOOOO 


YES, COUNT AND RESUME SCAN 
CHECK FOR BLANK. 


00042 


0020 00 





00044 




TRA 


• ♦2 


NO, SKIP. 


00043 


0020 00 





00046 




TRA 


ECSCN 


END OF COMMA SCAN. 


00044 


2 00001 


2 


00034 


RCLP 


TIX 


CLP2.2.1 


COUNT CHARACTERS. 


00045 


2 00001 


4 


00032 




TIX 


CLP4.4.1 


COUNT WORDS. 


00046 


1 77777 


1 


00047 


ECSCN 


TXI 


•♦1,1,-1 


COUNT LAST BLANK OR E.O.F. 


00047 


0774 00 


4 


00000 


C0X4 


AXT 


••.4 


RESTORE IRS. 


00050 


0774 00 


2 


00000 


C0X2 


AXT 


•••2 




00051 


0020 00 


4 


00002 




TRA 


2,4 


RETURN. 



END OF COMMA. 



UTIL0340 

UTIL0350 

UTIL0360 

UTIL0370 

UTIL0380 

UTIL0390 

UTIL0400 

UTIL0410 

UTIL0420 

UTIL0430 

UTIL0440 

UTIL0450 

UTIL0460 

UTIL0470 

UTIL0480 

UTIL0490 

UTIL0500 

UTIL0510 

UTIL0520 

UTIL0530 

UTIL0540 

UTIL0550 

UTIL0560 

UTIL0570 

UTIL0580 

UTIL0590 

UTIL0600 

UTIL0610 

UTIL0620 

UTIL0630 



UTILITY PROGRAMS FOR CAP. 



00052 
C0053 
00054 
00055 
00056 
C0057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 

000 74 

00075 

00076 

00077 

00100 

00101 

00102 

00103 

00104 

00105 

00106 

00107 

00110 

00111 

00112 

00113 

00114 

00115 

00116 

00117 

00120 

00121 



0634 00 
0634 00 

-0500 00 

-0734 00 
0754 00 
0361 00 
0621 00 
0774 00 

-0500 00 
0602 00 
2 0000 I 

-0055 00 
0020 00 
2 00001 
0634 00 
0774 00 
0774 00 
0020 00 

0634 00 

0634 00 

-0500 00 

0622 00 

0771 00 

0361 00 

0621 00 

0774 00 

0534 00 

1 00001 

-3 0C764 

-0055 00 

0020 00 

-0500 00 

0600 00 

0602 00 

1 00001 

-3 00000 

0634 00 

0774 00 

0774 00 

00 20 00 



00071 
00072 
00001 
00000 
00000 
00001 
00062 
00764 
00000 
01106 
00067 
000002 
00071 
00062 
00061 
00000 
00000 
00002 



SAVE 



SCNT 



SVX4 
SVX2 



EJECT 



SXA 
SXA 
CAL 
PDX 
PXA 
ACL 
STA 
AXT 
CAL 
SLW 
TIX 
SIL 
TRA 
TIX 
SXA 
AXT 
AXT 
TRA 



*SAVE AND $UNSAVE, PUSHDOWN LIST. 



00117 
00120 
00001 
00115 
00022 
00001 
00113 
00001 
00061 
00106 
00111 
000004 
00117 
01106 
01106 
00000 
00115 
00113 
00061 
00000 
00000 
00002 

00764 



00122 



UNSAVE SXA 
SXA 
CAL 
STD 
ARS 
ACL 
STA 
AXT 
LXA 

UNSLP TXI 
TXL 
SIL 
TRA 
CAL 
STZ 

UNSLW SLW 
TXI 

UNTXL TXL 
SXA 

UNSX4 AXT 

UNSX2 AXT 
TRA 

SVN EOU 
SBUFF BSS 



END 



SVX4.4 

SVX2.2 

1,4 

0,2 

0,2 

1,4 

• ♦2 

SVN, 4 

••,2 

SBLFF+SVN.4 

•♦3,4,1 

2 

SVX4 

•-5,2,1 

SCNT, 4 

•»,4 

••,2 

2,4 

UNSX4.4 

UNSX2.2 

1,4 

UNTXL 

18 

1.4 

UNSLW 

1,2 

SCNT, 4 

•♦1,4,1 

•♦3,4, SVN 

4 

UNSX4 

SBUFF+SVN.4 

SBUFF+SVN.4 

••.2 

•♦1,2,1 

UNSLW, 2, •• 

SCNT, 4 

••.4 

••,2 

2,4 

50C 
SVN 



SAVE IRS. 

GET CONTROL WORD. 
COUNT TC IR2. 
COUNT TC A(AC). 
(ADDRESS OF FIRSTI+CCUNT. 
STA IN PICKUP. 

CURRENT STORAGE COUNT TO IR4. 
GET WORD. ••= BES OF CURRENT BLOCK 
PLACE IN LIST. 
COUNT LIST. 

LIST EXCEEDED, SET INDICATOR, 
AND EXIT. 

COUNT WCRDS TRANSMITTED. 
SAVE LIST COUNT. 
RESTORE IRS. 



RETURN. 

SAVE IRS. 

GET CONTROL WORD. 

INSERT COUNT. 

COUNT TC A(AC). 

(ADDRESS OF FIRST)+COUNT. 

STA IN STORE. 

SETUP FOR WORD COUNT. 

LIST COUNT TO IR4. 

COUNT IN LIST. 

IS LIST EXCEEOED. 

YES, SET INDICATOR, 

AND EXIT. 

OK, GET WORD, 

AND CLEAR LIST. 

INSERT IN CALLING PROGRAM. 

COUNT WORDS TRANSMITTED. 

COMPARE WITH BLOCK LENGTH. 

SAVE LIST COUNT. 

RESTORE IRS. 

RETURN. 

LENGTH OF SAVE LIST. 
LIST BUFFER. 



ENO OF SAVE AND UNSAVE. 



UTIL0640 

UTIL0650 

UTIL0660 

UTIL0670 

UTIL0680 

UTIL0690 

UTIL0700 

UTIL0710 

UTIL0720 

UTIL0730 

UTIL0740 

UTIL0750 

UTIL0760 

UTIL0770 

UTIL0780 

UT1L0790 

UTIL0800 

UTIL0810 

UTIL0820 

UTIL0830 

UTIL0840 

UTIL0850 

UTIL0860 

UTIL0870 

UTIL0880 

UTIL0890 

UTIL0900 

UTIL0910 

UTIL0920 

UTIL0930 

UTIL0940 

UTIL0950 

UTIL0960 

UTIL0970 

UTIL0980 

UTIL0990 

UTIL1000 

UTIL1010 

UTIL1020 

UTIL1030 

UTIL1040 

UTIL1050 

UTIL1060 

UTILIOTO 

UTIL1080 

UTIL1090 

UTIL1100 

UTIL1110 

UTIL1120 

UTIL1130 

UTIL1140 



LITERALS 

01106 000000000014 

01107 000000000060 
OHIO 000000000073 



UTILITY PROGRAMS FOR CAP. 

POST PROCESSOR ASSEMBLY OATA 

1111 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 

REFERENCES TO OEFINED SYMBOLS 

106, 111, 112, 122, 1106 



33 


LCQ 


30 




764 


SVN 


61, 


63 


34 


CLP2 


44 




32 


CLP4 


45 




50 


C0X2 


25 




47 


C0X4 


24 




44 


RCLP 


37, 


40 


52 


SAVE 






2 


SCAN 






61 


SCNT 


70, 


104 


21 


SCX4 


2 




72 


SVX2 


53 




71 


SVX4 


52, 


66 


23 


WORD 


5, 


14 


24 


COHKA 






46 


ECSCN 


43 




17 


RSCAN 


12 




122 


SBUFF 


63, 


HI 


6 


SLOCP 


17 




105 


UNSLP 






113 


UNSLW 


102, 


115 


120 


UNSX2 


75 




117 


UNSX4 


74, 


HO 


115 


UNTXL 


77 




74 


UNSAVE 







116 



16, 20 



112 



NO ERROR IN ABOVE ASSEMBLY. 

•TIME SPENT IN FAP.. 000006 IN HUNDREDTHS OF MINUTES. 



$SYMSTO, AND tSYMGET, OPERATIONS WITH SYMBOL TABLE. 



00026 
00042 
00003 



PCC 

COUNT 

LBL 

ENTRY 

ENTRY 

ENTRY 



54 

SYMSTO 

SYMGET 

PSMTBL 

SYMSTO 



BINARY CARD LABEL- 
ENTRY TC LOCK-UP VALUE OF SYMBOL. 
POINTER TO SYMBOL TABLE AND SIZE. 
ENTRY TC PLACE SYMBOL AND VALUE IN TABLE. 



$SYMSTOi FORM SYMBOL TABLE. 



SYMS0010 
SYMS0020 
SYMS0040 
SYHS0050 
SYMS0060 
SYMS0070 
SYMS0080 
SYMS0090 
SYMS0100 



TRANSFER VECTOR 
00000 622321456060 



SCAN 



LINKAGE CIRECTOR 
00001 000000000000 
000C2 627044272563 



00003 


-0340 00 


00353 


SYMSTO LAS 


»H 


00004 


0020 00 


00006 


TRA 


• ♦2 


00005 


0020 00 


4 00001 


TRA 


1,4 


00006 


0634 00 


4 00024 


SXA 


SSX4.4 


00007 


0074 00 


4 00000 


TSX 


tSCAN,4 


00010 


-0130 00 


OOOOO 


XCL 




00011 


07 54 00 


1 OOOOO 


PXA 


0,1 


00012 


0737 00 


4 OOOOO 


PAC 


0,4 


00013 


0754 00 


4 OOOOO 


PXA 


0,4 


00014 


-0534 00 


4 00042 


LXO 


PSMTBL, 4 


00015 


1 0000 2 


4 00016 


TXI 


•+1,4,2 


00016 


-3 00310 


4 00021 


TXL 


•♦3,4,LSMTBL 


00017 


-0055 00 


000001 


SIL 


1 


00020 


0020 00 


00024 


TRA 


SSX4 


C0021 


-0600 00 


4 00353 


STQ 


SYMTBL.4 


C0022 


0602 00 


4 00354 


SLW 


SYMTBL+1,4 


00023 


-0634 00 


4 00042 


SXO 


PSMTBL, 4 


00024 


0774 00 


4 OOOOO 


SSX4 AXT 


• »,4 


C0025 


00 20 00 


4 00001 


TRA 


1,4 



CHECK FOR BLANK LOCATION FIELD. 

NOT BLANK, SKIP. 

BLANK, OONT STORE, RETURN TO CALLER. 

SAVE IR4. 

COMPRESS SYMBOL TO RIGHT. 

PLACE SYMBOL IN MQ. 

GET ♦ULC). 



GET CURRENT COUNT OF TABLE. 

MAKE ROOM FOR ONE MORE. 

CHECK FOR TABLE OVERFLOW. 

SYMTBL EXCEEDED, SET INOICATOR. 

GO TO RETURN. 

SAVE SYMBOL. 

SAVE VALUE. 

SAVE TABLE COUNT. 

RESTORE IR4. 

RETURN. 



SYMSOUO 
SYMS0 120 
SYMS0130 
SYMS0140 
SYMS0150 
SYMS0160 
SYMS0170 
SYMS0180 
SYMS0190 
SYMS0 200 
SVMS0210 
SYMS0220 
SYMS0230 
SYMS0240 
SYMS0250 
SYMS0260 
SYMS0270 
SYMS0280 
SYMS0 290 



SPACE 



00026 


0634 00 


4 00040 


SYMGET 


SXA 


SGX4.4 


00027 


-05 34 00 


4 00042 




LXD 


PSMTBL, 4 


00030 


-0340 00 


4 00353 




LAS 


SYMTBL, 4 


C0031 


0020 00 


00033 




TRA 


• + 2 


00032 


0020 00 


00037 




TRA 


SYMFND 


00033 


2 0000 2 


4 00030 




TIX 


•-3,4,2 


00034 


-0754 00 


OOOOO 




PXO 


0,0 


00035 


0055 00 


000001 




SIR 


1 


00036 


0020 00 


00040 




TRA 


SGX4 


00037 


-0500 00 


4 00354 


SYMFND 


CAL 


SYMTBL*1,4 


00040 


0774 00 


4 OOOOO 


SGX4 


AXT 


••,4 


00041 


0020 00 


4 00001 




TRA 


1,4 



SSYMGET, LOOK UP SYMBOL AND GET VALUE. 



SAVE IR4. 

GET TABLE COUNT. 

COMPARE WITH TABLE. 

NOT THIS ONE, SKIP. 

FOUNO, EXIT. 

INDEX AND TRY AGAIN. 

NOT FOUND, VALUE IS ZERO. 

SET UNOEFINEO SYMBOL INDICATOR. 

GO TO EXIT. 

FOUND, GET VALUE. 
RESTORE IR4. 
RETURN. 



SYMS0300 
SYMS0310 
SYMS0 320 
SYMS0 330 
SYMS0 340 
SYMS0350 
SYMS0360 
SYMS037O 
SYMS0380 
SYMS0390 
SYMS0 400 
SYMS0410 
SYMS0420 
SYMS0430 
SYMS0 440 
SYMS0 450 
SYMS0460 



tSYMSTO, AND $SYMGET, OPERATIONS WITH SYMBOL TABLE. 



00042 
00353 



SPACE 



00310 LSHTBL EOU 

00000 00353 PSMTBL PZE 

SYMTBL BES 



END 



LITERALS 
00353 606060606060 



STORAGE AND CONSTANTS. 



2»100 

SYMTBL,0,»» 
LSMTBL 



ROOM FOR 100 SYMBOLS. 
POINTER WORD TO SYMTBL. 
SYMBOL TABLE. 



SYMS0470 
SYMS0480 
SYMS0490 
SYMS0500 
SYMS0510 
SYMS0S20 
SYMS0530 
SYMS0540 



POST PROCESSOR ASSEMBLY DATA 
354 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 



REFERENCES TO DEFINED SYMBOLS 






SCAN 


7 






40 


SGX4 


26, 


36 




24 


SSX4 


6, 


20 




310 


LSMTBL 


16, 


42, 


353 


42 


PSMTBL 


14, 


23, 


27 


37 


SYMFNO 


32 






26 


SYMGET 








3 


SYMSTO 








353 


SYMTBL 


21, 


22, 


30 



37, 



42 



NO ERROR IN ABOVE ASSEM8LY. 

•TIME SPENT IN FAP.. 000004 IN HUNDREDTHS OF MINUTES. 



ENDOP ANC OTHER SUBROUTINES USED BY COMP. 





PCC 






COUNT 


102 




LBL 


ENOOP 


00036 


ENTRY 


PIVAR 


00045 


ENTRY 


GENOP 


00053 


ENTRY 


ILC 


00071 


ENTRY 


GNSTO 


00060 


ENTRY 


ERASE 


00122 


ENTRY 


NSTO 


00004 


ENTRY 


ENDOP 



BINARY CARD LABEL. 

ENTRY TC PLACE WORD IN VARIABLE FIELD. 

ENTRY TO PLACE OP IN OP-FIELD AND WCT1. 

ENTRY LCCATION FOR SAVING CURRENT ILC. 

ENTRY TO GENERATE TEMPORARY STORAGE. 

ENTRY TO ERASE VARIABLE FIELD. 

ENTRY TO COUNT LOCATIONS FOR ERASABLES. 

END CARC PSEUOO-OP. 



ENTRY TO RESERVE STORAGE. 



ENDP0010 
ENDP0020 
ENDP0040 
ENDP0050 
ENDP0060 
ENDP0070 
ENDP0080 
ENDP0090 
ENDP0100 
ENDP0110 
ENDP0120 
ENDP0130 
ENDP0140 



TRANSFER VECTOR 

00000 627044626346 

00001 662363016060 

LINKAGE OIRECTGR 

00002 000000000000 

00003 473165215160 



00004 
00005 
00006 
00007 
00010 
00011 
C0012 
C0013 
00014 
00015 
C0016 
00017 

00020 
C0021 
00022 
00023 
00024 
00025 
C0026 
00027 
000 30 
00031 
00032 
00033 
00034 
00035 



-0520 00 
0020 00 
0634 00 

-0500 00 
0074 00 
0074 00 

00000 
0535 00 

-06 34 00 

1 00000 
0774 00 
0020 00 



00123 
00001 
00016 
00150 
00000 
00001 
00020 
00123 
00015 
00016 
00000 
0000 I 



606325446060 
605125446060 
632544474651 
215170606263 
465121272560 
215125216022 
252731456260 
302551253360 
60 6060 606060 
6060606C6060 
606060606C60 
60 6060 606060 
60606060 6060 
606060 606060 



SYMSTO 
WCT1 



ENDOP HI T 
TRA 
SXA 
CAL 
TSX 
TSX 
PZE 
LAC 
SXD 
TXI 

ENDX4 AXT 



00036 0634 00 4 00043 

00037 0774 00 4 00013 

00040 -2 00001 4 00043 

00041 0602 00 4 00141 



TRA 



EBUFF BCI 



BCI 



PIVAR SXA 
PCNT AXT 

TNX 
SLW 



MSTO 
lt4 

ENCX4.4 
=HTEM 
♦SYMSTO, 4 
$WCT1,4 
EBUFF 
MSTO, 4 
* + l,4 
•+1,1, *» 
•*,4 
1,4 



IF NO STORAGE ALLOCATED, 

RETURN TO CALLER. 

STORAGE ALLOCATED, SAVE IR4. 

INSERT THIS SYMBOL IN SYMBOL TABLE. 

• • 

PUT REM CARD ON CT1. 
INCREASE ILC FOR STORAGE. 



RESTORE IR4. 
RETURN. 



9, TEM REM TEMPORARY STORAGE AREA BEGINS HERE. 



5, 



ENTRY TO FORM VARIABLE FIELD. 

PX4.4 SAVE IR4. 

11,4 COUNT 10 WORDS WITH TNX. 

PX4.4.1 INDEX WORD COUNT. 

PBUFF+12,4 PLACE WCRD IN BUFFER. 



ENDP0150 
ENDP0160 
ENDP0170 
ENDP0180 
ENOP0190 
EN0P0200 
ENDP0210 
ENDP0220 
ENDP0230 
ENDP0240 
ENDP3250 
ENDP0260 
ENOP0270 
ENDP0280 



ENDP0290 



ENDP0300 
ENDP0310 
ENDP0320 
ENDP0330 
ENDP0340 
ENDP0350 
EN0P0360 



ENOflP AND OTHER SUBROUTINES USED eY COMP. 



00042 0634 00 4 00037 

00043 0774 00 4 00000 
C0044 0020 00 4 00001 



PX4 



SXA 


PCNT.4 


SAVE WORD COUNT. 


AXT 


•«,4 


RESTORE IR4. 


TRA 


1»« 


RETURN. 



EN0P0370 
ENDP0380 
ENDP0390 



SPACE 



ENTRY TO INSERT OP-FIELO AND WCT1. 



00045 


0634 00 


4 


00056 


GENOP 


SXA 


G0PX4.4 


SAVE IR4. 


C0046 


-0500 00 


4 


00001 




CAL 


lt4 


GET OP. 


C0047 


0602 00 





00126 




SLW 


PBUFF+1 


INSERT CP-FIELO. 


C0050 


0074 00 


4 


00001 




TSX 


tWCTl.4 


WRITE COLLATION TAPE 


00051 


OCOOO 





00125 




PZE 


PBUFF 




00052 


0074 00 


4 


00060 




TSX 


ERASE, 4 


CLEAR PBUFF. 


00053 


0774 00 


4 


00000 


ILC 


AXT 


••,4 


INCREMENT ILC. 


000 54 


1 77777 


4 


00055 




TXI 


•+1,4,-1 




00055 


0634 00 


4 


00053 




SXA 


ILC, 4 


SAVE CURRENT ILC. 


00056 


0774 00 


4 


00000 


G0PX4 


AXT 


••,4 


RESTORE IR4. 


C0057 


00 20 


4 


00002 




TRA 


2,4 


RETURN. 



ENDP0400 
ENDP0410 
ENDP0420 
ENDP0430 
ENDP0440 
ENDP0450 
ENDP0460 
ENDP0470 
ENDP0480 
ENDP0490 
ENOP0 500 
ENDP0510 
ENOP0520 
ENDP0530 



SPACE 



ENTRY TO ERASE PBUFF. 



00060 


C634 00 


4 


00067 


ERASE 


SXA 


ERX4.4 


SAVE IR4. 


C0061 


0774 00 


4 


00013 




AXT 


11,4 


RESET PCNT. 


00062 


0634 00 


4 


00037 




SXA 


PCNT.4 




00063 


0774 00 


4 


00016 




AXT 


14,4 


LOAD BUFFER 


00064 


-0500 00 





00145 




CAL 


= H 




00065 


0602 00 


4 


00143 




SLW 


PBLFF+14, 4 




C0066 


2 00001 


4 


00065 




TIX 


•-1,4,1 




C0067 


0774 00 


4 


00000 


ERX4 


AXT 


••,4 


RESTORE IR4 


000 70 


0020 00 


4 


00001 




TRA 


1,4 


RETURN. 



ENDP0 540 
ENDP0550 
ENDP0560 
ENDP0 570 
ENDP0 580 
ENDP0590 
ENDP0 600 
ENDP0610 
ENDP0620 
ENOP0630 
ENDP3640 
ENDP3650 



00071 
00072 
00073 
00074 
C0075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
001C5 
00106 
00107 
00110 
00111 
00112 



0500 00 
0560 00 
0400 00 
0601 00 
034C 00 
0601 00 
0761 00 
0131 00 
-0100 00 
-0500 00 
0020 00 
0340 00 
0020 00 
0020 00 
0767 00 
-0501 00 
0020 00 
0131 00 



00122 
00122 
00143 
00122 
00123 
00123 
00000 
00000 
00104 
00150 
00001 
00144 
00112 
00112 
00006 
00147 
00001 
00000 



SPACE 



GNSTO CLA 

Log 

ADO 
STO 
CAS 
STO 
NOP 
XCA 
TNZ 
CAL 
TRA 
CAS 
TRA 
TRA 
ALS 
OR A 
TRA 
TWOCG XCA 



ENTRY TO GET NEXT TEMPORARY STORAGE SYMBOL. 



NSTO 
NSTO 
= 1 

NSTO 
MS TO 
MSTO 



• + 3 

*HTEM 

1,4 

«1C 

TWOOG 

TWODG 

6 

=HTEM+0 

1,* 



PLACE NUMBER OF LAST STORAGE. 

IN AC AND MO. 

INCREMENT AND SAVE FOR NEXT. 

• • 

CHECK FOR MSTO EXCEEDED. 
YES, UPDATE MSTO. 
EQUAL, IGNORE. 
PLACE NSTO IN AC. 
CHECK FOR ZERO NSTO. 
ZERO, PICKUP CHARACTERS. 
RETURN TO CALLER. 
CHECK FOR ONLY ONE DIGIT. 
TWO DIGITS. 

• ■ 

ONE DIGIT, SHIFT TO POSITION. 

INSERT CHARACTERS. 

RETURN TO CALLER. 

TWO DIGITS, PLACE NSTO IN MO AGAIN. 



ENDP0660 
ENDP3670 
EN0P0680 
ENDP0690 
ENDP0700 
ENDP0710 
EN0P0720 
ENDP0730 
ENDP0740 
ENDP075O 
ENDP0 760 
ENDP0770 
ENDP0780 
ENDP0 790 
ENDP0800 
EN0P0810 
ENDP0820 
ENDP0830 
ENOP0840 
EN0P0850 
ENDP0860 



ENOOP AND OTHER SUBROUTINES USEO BY COMP. 



00113 -0754 00 00000 

00114 0221 00 00144 

00115 -0773 00 00006 

00116 -060C 00 00124 

00117 -0501 00 00124 

00120 -0501 00 00146 

00121 0020 00 4 00001 



PXD 
OVP 
ROL 
STQ 
OR A 
OR A 
TRA 



0,C CLEAR AC. 

<IC MOD 10. 

6 FIRST DIGIT TO K5. 

DNSTO SAVE. 

DNSTO FORM DECIMAL STORAGE NUMBER. 

• HTEM-t-00 INSERT CHARACTERS. 

1,4 RETURN WITH RESULT IN AC. 



ENDP0870 
ENDP0880 
EN0P0890 
ENDP0900 
ENDP0910 
ENDP0920 
ENDP0930 



SPACE 



C0122 





00000 





00000 


NSTC 


PZE 


00123 





00000 





00000 


MSTO 


PZE 


00124 





00000 





00000 


CNSTC 


PZE 


00125 










P8UFF 


BSS 



END 



STCRAGE AND CONSTANTS. 



14 



CURRENT STORAGE COUNTER. 
MAXIMUM STORAGE COUNTER. 
OECIMAL STORAGE COUNTER. 
STATEMENT BUFFER. 



ENDP0940 
ENDP0950 
ENDP0960 
ENDP0970 
ENDP0980 
ENDP0990 
ENDP1000 
ENDP1010 
ENDP1020 



LITERALS 

00143 000CC0000001 

00144 000000000012 

00145 606060606060 

00146 632544200C0O 

00147 632544200060 
00150 632544606060 

POST PROCESSOR ASSEMBLY DATA 

151 IS THE FIRST LOCATION NOT USEO BY THIS PROGRAM 



REFERENCES TO DEFINED SYMBOLS 



53 


ILC 


55 






43 


PX4 


36, 


40 




67 


ERX4 


60 






123 


MSTO 


4, 


13, 


75, 


122 


NSTC 


71, 


72, 


74 


37 


PCNT 


42, 


62 




1 


HCTl 


11, 


50 




124 


ONSTO 


116, 


117 




20 


EBUFF 


12 






4 


ENOOP 








16 


EN0X4 


6 






60 


ERASE 


52 






45 


GENOP 








71 


GNSTO 








56 


G0PX4 


45 






125 


PBUFF 


41, 


47, 


51, 


36 


PIVAR 








112 


TWODG 


105, 


106 







SYMSTO 


10 







76 



65 



NO ERROR IN ABOVE ASSEMBLY. „,,.„, tcc 

•TIME SPENT IN FAP.. 000005 IN HUNDREDTHS OF MINUTES. 



SUBROUTINE COMPOP, COMPILE ARITHMETICS FOR CAP. 



OOO 10 



TRANSFER VECTOR 

00000 314323606060 ILC 

00001 456263466060 NSTO 

00002 255121622560 ERASE 

00003 256747516060 EXPR 

00004 473165215160 PIVAR 

00005 272545464760 GENOP 

LINKAGE DIRECTOR 

00006 000000000000 

00007 234644474647 



PCC 
COUNT 
LBL 
ENTRY 



186 

COMPOP 

COMPOP 



BINARY CARD LABEL. 
EVALUATE "COMP« PSEUDO-CP. 



tCOMPOP IS CALLEO BY, 

TSX $C0MP0P,4 
PZE BLFF 

WHERE BUFF IS A 14 WORD BUFFER CONTAINING THE 
HOLLERITH CARD IMAGE OF THE CCMP STATEMENT. 
COMPOP TAKES THE VARIABLE FIELD AS A FCRTRAN 
ARITHMETIC STATEMENT AND COMPILES IN FLOATING 
POINT. COMMAS ARE TREATED AS PART OF THE SYMBOL, 
HENCE TAGGING IS ALLOWED. BLANKS ARE IGNORED. 

COMPOP OPERATES IN 2 PASSES* PASS1 TAKES THE 
CARD IMAGE APART SEPARATING SYMBOLS FROM OPERATION 
CHARACTERS. PASS2 EVALUATES EXPRESSIONS FROM THE 
INNERMOST [...) PAIR OUTWARD. SOME OPTIMIZATION 
IS DONE BUT THERE ARE NO DIAGNOSTICS. 



COMP0010 
COMP0020 
COMP0040 
C0MP0050 
C0MP0060 
COMP0070 
COMP0080 
COMP0090 
COM PO 100 
COMP0110 
COMP0120 
COMP0130 
COMP0140 
COMP0150 
C0MP0160 
COMP0170 
COMP0180 
COMP0190 
COMP0200 
C0MP0210 
C0MP0220 
COMP0230 



00010 


06 34 


00 


4 


00210 


COMPOP SXA 


RX4,4 


00011 


0634 


00 


2 


00211 


SXA 


RX2.2 


00012 


0754 


00 


1 


00000 


PXA 


0,1 


00013 


0621 


60 





00000 


STA* 


$ILC 


00014 


-0500 


00 


4 


00001 


CAL 


1,4 


00015 


03 61 


00 





00536 


ACL 


»12 


00016 


0621 


00 





00032 


STA 


CAL1 


00017 


0600 


60 





00001 


STZ» 


$NST0 


00020 


0600 


00 





00216 


STZ 


TEOFl 


00021 


-0500 


00 





00534 


CAL 


»1 


00022 


0602 


00 





00215 


SLW 


SYM 


00023 


00 74 


00 


4 


00002 


TSX 


$ERASE,4 


00024 


0774 


00 


4 


00310 


AXT 


LFLD.4 


00025 


06 34 


00 


4 


00124 


SXA 


FCNT.4 


00026 


0140 


00 





00027 


TOV 


•♦1 


00027 


0020 


00 





00030 


TRA 


CPAS1 



SAVE IRS. 

GET -ULC>. 

SAVE. 

GET CONTROL WORD. 

BUFF+12. 

STA IN PICKUP. 

ZERO NUMBER OF TEMPORARY STORAGE. 

RESET EOF MARK. 

SETUP SYM. 

■ • 

ERASE BUFFER. 
SETUP FLD COUNT. 

• • 

TURN OFF OVERFLOW LIGHT. 
GO TO PASSU 



COMP0240 
COMP0250 
COMP0260 
COMP0270 
C0MP0280 
C0MP0290 
COMP0300 
COMP0310 
COMP0 320 
C0MP0 330 
COMP0340 
COMP0350 
C0MP0360 
C0MP0 370 
COMP0380 
COMP0390 



SUBROUTINE COMPOP, COMPILE ARITHMETICS FOR CAP. 



00 



SPACE 



PASS 1 OF COMP, SEPARATE FIELD INTO SYMBOL AND BREAKS. 



000 30 


0774 


00 


2 


00012 


CPAS1 


AXT 


10,2 


C0031 


07 74 


oc 


1 


00006 


BSCN1 


AXT 


6, 1 


00032 - 


-0500 


00 


2 


00000 


CAL1 


CAL 


• *,2 


00033 • 


-0340 


00 





00542 




LAS 


*H 


00034 


0020 


00 





00036 




TRA 


• ♦2 


00035 


0020 


00 





00063 




TRA 


RSCN1+2 


00036 - 


-0130 


00 





00000 




XCL 




00037 • 


-0754 


00 





00000 


SCN1 


PXD 


0,0 


00040 


-0763 


00 





00006 




LGL 


6 


00041 


-0600 


00 





00217 




STQ 


MQ 


C0042 


-0340 


00 





00540 




LAS 


»H000C0 


00043 


0020 


00 





00045 




TRA 


• + 2 


00044 


0020 


00 





00061 




TRA 


RSCN1 


00045 


0774 


00 


4 


000C7 




AXT 


NBK, 4 


00046 


-0340 


00 


4 


00075 




LAS 


TABBK+NBK.4 


00047 


0020 


00 





00051 




TRA 


• + 2 


00050 


00 20 


00 





00075 




TRA 


BRK 


C0051 


2 00001 


4 


00046 




TIX 


•-3,4,1 


00052 


-0765 


00 





00006 




LGR 


6 


000 53 


-0500 


00 





00215 




CAL 


SYM 


00054 


-0763 


00 





00006 




LGL 


6 


00055 


-01 4C 


00 





00060 




TNO 


• ♦3 


00056 


00 74 


00 


4 


00123 




TSX 


STFL0.4 


00057 


-0500 


00 





00534 




CAL 


= 1 


00060 


0602 


00 





00215 




SLW 


SYM 


00061 


0560 


00 





00217 


RSCN1 


LDQ 


MQ 


00062 


2 0C001 


1 


00037 




TIX 


SCNl.1,1 


00063 


2 00001 


2 


00031 




TIX 


BSCN1,2,1 


00064 


-0625 


00 





00216 




STL 


TE0F1 


00065 


0020 


00 





00075 




TRA 


BRK 


00066 


000000000020 


TABeK 


8CI 


1,00000* 


00067 


000000000040 




BCI 


1,00000- 


00070 


000000000054 




BCI 


1 , CCCCO* 


C0071 


000000000061 




BCI 


1,C00C0/ 


C0072 


000000000074 




BCI 


l.OOOOOf 


00073 


0OOOOO000C34 




BCI 


1,00000) 


00074 


O00O0O000C13 




BCI 


1,00000= 










00007 


NBK 


EOU 


•-TABBK 


00075 


0602 


00 





00220 


BRK 


SLW 


LBRK 


00076 


-0500 


00 





00215 




CAL 


SYM 


00077 


-0340 


00 





00534 




LAS 


= 1 


00100 


0020 


00 





00102 




TRA 


• ♦2 


00101 


0020 


00 





00110 




TRA 


NO SYM 


00102 


056C 


00 





00542 




LDQ 


= H 


00103 


-0763 


00 





00006 




LGL 


6 


00104 


-0140 


00 





00103 




TNO 


•-1 


00105 


00 74 


00 


4 


00123 




TSX 


STFLD.4 


00106 


-0500 


00 





i 00534 




CAL 


= 1 


00107 


0602 


00 





I 00215 




SLW 


SYM 


00110 


0520 


i 00 


c 


i 00216 


NOSYM ZET 


TE0F1 


00111 


002C 


i 00 


c 


! 00134 




TRA 


E0F1 



COUNT 10 WORDS IN VARIABLE FIELD. 

COUNT 6 CHARACTERS. 

GET WORD. 

CHECK FOR ALL BLANKS. 

NO, SKIP. 

ALL BLANK, IGNORE. 

PLACE IN MO. 

CLEAR AC. 

GET NEXT CHARACTER. 

SAVE MQ. 

CHECK FOR BLANK. 

NO, SKIP. 

YES, IGNORE. 

CHECK FOR BREAK. 

COMPARE WITH TABLE. 

NO, SKIP. 

BREAK FOUND, EXIT. 

INOEX, AND TRY AGAIN. 

BUILD SYM. 



IF SYMBOL FULL, 

INSERT IN LIST, 

AND BEGIN NEW SYMBOL. 

SAVE PARTIAL SYMBOL. 

RESTORE MQ. 

COUNT CHARACTERS. 

COUNT WORDS. 

SET EOF MARK. 

GO PROCESS BREAK. 

TABLE OF BREAK CHARACTERS. 



SIZE OF TABLE. 

SAVE BREAK CHARACTER. 

GET SYMBOL. 

CHECK FCR NO CHARACTERS. 

YES. SKIP. 

NO, DONT STORE. 

SYMBOL, LEFT JUSTIFY. 



PLACE IN FLD. 
BEGIN NEW SYMBOL. 

CHECK FCR EOF. 
EOF, GO TO IT. 



COMP0400 

C0MP0410 

C0MP0420 

C0MP0430 

COMP0440 

COMP0450 

C0MPQ460 

COMP0470 

COMP0480 

C0MP0490 

COM PO 500 

COMP0510 

C0MP0520 

C0MP0530 

COMP0 540 

C0MP0550 

COMP0 560 

COMP0570 

COMP0 580 

COMP0590 

C0MP0600 

C0MP0610 

COM PO 620 

C0MP0630 

COMP0640 

C0MP0650 

COMP0660 

C0MP0670 

COMP0680 

C0MP0690 

COM PO 700 

COMP0710 

C0MP0720 

C0MP0730 

COMP0740 

COMP0 750 

COMP0760 

COMP0770 

COMP0 780 

COM PO 790 

C0MP0800 

COMP0810 

COMP0820 

C0MP0830 

C0MP0840 

COMP0850 

COMP0860 

COMP0870 

COMP0880 

COMP0 890 

COMP0900 

C0MP0910 

COMP0920 

C0MP0930 

COM PO 940 

COMP0950 









SUBROUTINt 


1 COMPOPt CO* 


(PILE ARITHI 


00112 


-0500 


00 





00220 




CAL 


LBRK 


00113 


0074 


00 


4 


00123 




TSX 


STFLD.4 


00114 


-0500 


00 





00220 




CAL 


LBRK 


00115 


0322 


OC 


c 


00535 




ERA 


=H0O00O= 


00116 


-0100 


00 





00061 




TNZ 


RSCN1 


00117 


-0500 


00 





00124 




CAL 


FCNT 


00120 


0361 


00 





00534 




ACL 


»1 


00121 


0621 


00 





00221 




STA 


TFLO 


00122 


0020 


00 





00061 




TRA 


RSCN1 


00123 


0634 


00 


4 


00130 


STFLO 


SXA 


STX4.4 


00124 


0774 


00 


4 


00310 


FCNT 


AXT 


LFLD.4 


00125 


06C2 


00 


4 


00534 




SLW 


FLCt4 


00126 


-2 00001 


4 


00132 




TNX 


XFL0 f 4t 1 


00127 


0634 


00 


4 


00124 




SXA 


— 3,4 


00130 


0774 


00 


4 


00000 


STX4 


AXT 


••#4 


00131 


0020 


00 


4 


00001 




TRA 


lt4 


00132 


-0C55 


00 


( 


DOOOlO 


XFLC 


SIL 


10 


C0133 


0020 


00 





00210 




TRA 


RX4 


00134 


-0500 


CO 





00124 


E0F1 


CAL 


FCNT 


00135 


06 21 


00 





00222 




STA 


BFLO 


C0136 


0020 


00 





00137 




TRA 


CPAS2 



NOT EOF, GET BREAK CHARACTER. 

PLACE IN FIELD. 

GET BREAK CHARACTER. 

CHECK FOR «. 

NO, RESLHE SCAN. 

YES, MARK TOP OF FIELD. 



RESUME SCAN. 

SAVE IR4. 

GET CURRENT FLD INDEX. 

INSERT hORD. 

COUNT THIS WORD. 

SAVE COUNT. 

RESTORE IR4. 

RETURN. 

COMP STATEMENT TOO LONG, MARK ERROR, 
AND RETURN. 



MARK BOTTOM OF FIELD. 
GO TO PASS2. 



COMP0960 
C0MP0970 
COMP0980 
COMP0990 
COMP1000 
C0MP1010 
COMP1020 
C0MP1030 
C0MP1040 
C0MP1050 
COMP1060 
C0MP1070 
C0MP1080 
COMP1090 
C0MP1100 
C0MP1110 
C0MP1120 
COMP1130 
C0MP1140 
COMPU50 
C0MP1160 
C0MP1170 
C0MP1180 
C0MP1190 



00137 
00140 
00141 
00142 
00143 
C0144 
00145 
00146 
C0147 
C0150 
00151 
00152 
00153 
C0154 
C0155 
00156 

00157 
00160 

00161 
C0162 
00163 
00164 
00165 
00166 
C0167 



0534 00 

-C634 00 
0534 00 
0634 00 
1 77777 

-050C OC 
0100 00 

-034C 00 
0020 00 
0020 00 

-0340 00 
0020 00 
0020 00 
1 77777 
3 00000 
0020 00 

0634 00 
0020 00 

-0634 00 

0600 00 

0534 00 

0600 00 

0634 00 

0074 00 
00000 



00222 
00155 
00221 
002 2 3 
00144 
1 00534 
00154 
00541 
00151 
00157 
00537 
00154 
00161 
00155 
00144 
00172 



00223 
00154 

00167 
00534 
00223 
00534 
00167 
00003 
00000 



CPAS2 



BSCN2 



SCN2 



RSCN2 



SPACE 



LXA 
SXD 
LXA 
SXA 
TXI 
CAL 
TZE 
LAS 
TRA 
TRA 
LAS 
TRA 
TRA 
TXI 
TXH 
TRA 



LPAR2 SXA 
TRA 

RPAR2 SXO 
STZ 
LXA 
STZ 
SXA 
TSX 

EXPwl PZE 



2 

PASS 2 OF COMP, FIND AND EVALUATE EXPRESSIONS. 

BFLO.l SET CONTROL TXH. 
RSCN2+1.1 

TFLC, 1 GET TOP OF FIELD. 

LLPAR.l TREAT AS LAST (. 

•+1,1,-1 INDEX TO FIRST WORD. 

FLC.l GET NEXT FLD WORD. 

RSCN2 IF ZERO, IGNORE. 

=HCOOCO( CHECK FOR (. 

•♦2 NO, SKIP. 

LPAR2 YES, GO TO IT. 

=HOOOCO) CHECK FOR ) . 

• + 2 NO, SKIP. 

RPAR2 YES, GO TO IT. 

•+1,1,-1 COUNT WORDS. 

SCN2,1,»« CHECK FOR EOF. 

E0F2 EOF, GO TO IT. 

LLPAR, 1 SET LAST (. 

RSCN2 RESUME SCAN. 

EXPW1.1 EXPRESSION, MARK BOTTOM FOR $EXPR. 

FLO.l CLEAR FLD. 

LLPAR, 1 GET INDEX OF LAST (. 

FLCl CLEAR FLD. 

EXPW1,1 MARK TOP FOR tEXPR. 

$EXPR,4 GO EVALUATE EXPRESSION. 

•»,0,»» ZERO TAG MEANS STORE INTERMEDIATE. 



COMP 1 200 
C0MP1210 
C0MP1220 
C0MP1230 
COMP1240 
COMP1250 
COMP1260 
C0MP1270 
C0MP1280 
COM PI 290 
COMP1300 
C0MP1310 
C0MP1320 
COMP1330 
C0MP1340 
C0MP1350 
COMP1360 
C0MP1370 
COMP1380 
C0MP1390 
COMP1400 
COMP1410 
C0MP1420 
COMP1430 
COMP1440 
COMP1450 
COMP1460 
C0MP1470 
C0MP1480 
C0MP1490 



SUBROUTINE COMPOP, COMPILE ARITHMETICS FOR CAP. 



C017O 


00000 


C 


00534 




PZE 


FLC 


00171 


0020 00 





00141 




TRA 


BSCN2 


00172 


-06 34 00 


1 


00177 


EOF 2 


SXD 


EXPW2.1 


00173 


0534 00 


1 


00223 




LXA 


LLPAR.l 


00174 


0600 00 


1 


00534 




STZ 


FLC1 


00175 


0634 00 


1 


00177 




SXA 


EXPW2.1 


00176 


0074 00 


4 


00003 




TSX 


$EXPR,4 


C0177 


00000 


7 


00000 


EXPK2 


PZE 


••|7,« 


00200 


00000 





00534 




PZE 


FLC 


00201 


0774 00 


1 


00310 




AXT 


LFLDt 1 


00202 


-0500 00 


1 


00534 




CAL 


FLC1 


00203 


0100 00 





00206 




TZE 


• + 3 


00204 


0074 00 


4 


00004 




TSX 


SPIVAR.4 


00205 


1 77777 


1 


00202 




TXI 


•-3,1,-1 


00206 


0074 00 


4 


00005 




TSX 


$GEN0P,4 


C02C7 


606263466060 




BCI 


1, STO 


00210 


0774 00 


4 


00000 


RX4 


AXT 


••,4 


00211 


0774 00 


2 


00000 


RX2 


AXT 


• •,2 


C0212 


-0500 60 





00000 




CAL» 


SILC 


00213 


0734 00 


1 


00000 




PAX 


0,1 


00214 


0020 00 


4 


00002 




TRA 


2,4 



RESTART SCAN. 

FINAL EXPR, MARK BOTTOM. 

GET INOEX OF TOP. 

CLEAR FLD. 

MARK TOP. 

EVALUATE EXPRESSION. 

NON-ZERC TAG MEANS LEAVE IN AC. 

a ■ 

FORM FINAL STORAGE. 
GET WORE. 

IF ZERO, SYMBOL OONE. 
PLACE IN VARIABLE FIELD. 
INOEX FOR NEXT WORD. 
FINAL OP IS STO. 



RESTORE IRS. 
RESTORE ILC. 

RETURN. 



COMP1500 
COMP1510 
C0MP1520 
COMP1530 
COMP1540 
COMP1550 
C0MP1560 
COMP1570 
COMP1580 
C0MP1590 
C0MP1600 
C0MP1610 
C0MP1620 
COMP1630 
C0MP1640 
COMP165 
COMP1660 
C0MP1670 
C0MP1680 
COMP1690 
C0MP1700 
C0MP1710 
C0MP1720 



SPACE 



STORAGE ANC CONSTANTS. 



C0215 





00000 





00000 


SYM 


PZE 




PARTIAL SYMBOL STORAGE. 


00216 





00000 





00000 


TE0F1 


PZE 




END OF FIELD MARK. 


00217 





00000 





00000 


MC 


PZE 




MO STORAGE. 


00220 





00000 





00000 


LBRK 


PZE 




LAST BREAK. 


C0221 





00000 





00000 


TFLC 


PZE 




TOP OF FLD. 


00222 





00000 





00000 


BFLC 


PZE 




BOTTOM OF FLD. 


00223 





00000 





00000 


LLPAR 


PZE 




LAST (. 










00310 


LFLD 


EOU 


200 


LENGTH CF FLD. 


C0534 










FLD 


BES 


LFLD 


ARITHMETIC FIELD BUFFER 



END 



CCMP1730 
COMP1740 
COMP1750 
COMP1760 
C0MP1770 
COMP1780 
C0MP1790 
COMP1800 
COMP1810 
C0MP1820 
COMP1830 
COMP1840 
COMP1850 
C0MP1860 



LITE 
00534 
00535 
00536 
00537 
00540 
00541 
00542 



RALS 
000000 
000000 
000000 
000000 
000000 
000000 
606060 



000001 
000013 
000014 
000C34 
000060 
000074 
606060 



SUBROUTINE COMPOP, COMPILE ARITHMETICS FOR CAP. 
POST PROCESSOR ASSEMBLY OATA 

543 IS THE FIRST LOCATION NOT USEC BY ThIS PROGRAM 
REFERENCES TO DEFINED SYMBOLS 

164, 170, 174, 200, 202 

76, 107 



217 


MQ 


41, 


61 




75 


BRK 


50, 


65 




534 


FLD 


125, 


144, 


162, 





ILC 


13, 


212 




7 


NBK 


45, 


46, 


75 


211 


RX2 


11 






210 


RX4 


10, 


133 




215 


SYM 


22, 


53, 


60, 


222 


BFLD 


135, 


137 




32 


CAL1 


16 






134 


E0F1 


111 






172 


E0F2 


156 






3 


EXPR 


166, 


176 




124 


FCNT 


25, 


117, 


134 


220 


LBRK 


75. 


112, 


114 


310 


LFLD 


24, 


124, 


201, 


1 


NSTO 


17 






37 


SCN1 


62 






144 


SCN2 


155 






130 


STX4 


123 






221 


TFLD 


121, 


141 




132 


XFLO 


126 






31 


BSCM 


63 






141 


BSCN2 


171 






30 


CPAS1 


27 






137 


CPAS2 


136 






2 


ERASE 


23 






167 


EXPVil 


161, 


165 




177 


EXPW2 


172, 


175 




5 


GENOP 


2C6 






223 


LLPAR 


142, 


157, 


163, 


157 


LPAR2 


150 






110 


NOSYM 


101 






4 


PI VAR 


204 






161 


RPAR2 


153 






61 


RSCN1 


35, 


44, 


116, 


154 


RSCN2 


140, 


145, 


160 


123 


STFLD 


56, 


105, 


113 


66 


TABBK 


46, 


75 




216 


TE0F1 


20, 


64, 


110 


10 


COM POP 









224, 534 



173 



122 



NO ERROR IN ABCVE ASSEMBLY. 

•TIME SPENT IN FAP.. 000008 IN HUNDREDTHS OF MINUTES. 



SUBROUTINE EXPR, EVALUATE EXPRESSION FOR COMPOP. 



00006 



PCC 

COUNT 171 

LBL EXPR 

ENTRY EXPR 

JEXPR IS CALLEC BY, 



BINARY CARO LABEL. 

ARITHMETIC EXPRESSION EVALUATOR. 



TSX $EXPR,4 
PZE LI.T.RI 
PZE FLO 

WHERE (FLD-LI) IS THE AOORESS OF THE LEFT BREAK, 
AND (FLD-RI) IS THE ADDRESS OF THE RIGHT BREAK. 
EXPR TAKES A STRING OF SYMBOLS CONNECTEO BY 
♦ - • OR / (S) ANC COMPILES THE RESULT IN 
FLOATING POINT. IF T=0, THE RESULT IS PLACED IN 
TEMPORARY STORAGE, OTHERWISE, RESULT IS IN AC. THE 
SYMBOLIC FIELD IS MODIFIED ACCORDINGLY. 

$EXPR OPERATES IN TWO PASSES. PASS1 USES tTERH 
TO REDUCE THE EXPRESSION TO A SUMMATION. PASS2 
PERFORMS THE SUMMATION. SOME OPTIMIZATION 
IS DONE. 



EXPR0010 
EXPR0020 
EXPR0040 
EXPR0050 
EXPR0060 
EXPR0070 
EXPROOBO 
EXPR0090 
EXPR0100 
EXPR0110 
EXPR0120 
EXPR0130 
EXPR0140 
EXPR0150 
EXPR0160 
EXPR0170 
EXPR0180 
EXPR0190 
EXPR0200 
EXPR0210 
EXPR0220 
EXPR0230 
EXPR0240 



TRANSFER VECTOR 

COOOO 632551446060 TERM 

00001 473165215160 PIVAR 

00002 272545464760 GENOP 

00003 274562634660 GNSTC 



LINKAGE DIRECTOR 

00004 000000000000 

00005 256747516060 



00006 


0634 


00 


4 


00164 EXPR SXA 


RX4.4 


00007 


06 34 


00 


2 


00165 


SXA 


RX2,2 


C0010 


0634 


00 


1 


00166 


SXA 


RX1.1 


00011 


-0500 


00 


4 


00001 


CAL 


1,4 


00012 


0622 


00 





00054 


STD 


RSCN1+1 


00013 


0622 


00 





00116 


STD 


RSCN2+1 


00014 


0625 


00 





00171 


STT 


TAG 


00015 


0621 


00 





00065 


STA 


TRMWD 


00016 


0734 


00 


1 


00000 


PAX 


0,1 


00017 


1 77777 


1 


00020 


TXI 


•+1,1,-1 


00020 


06 34 


00 


1 


00100 


SXA 


IWD1.1 


00021 


-0500 


00 


4 


00002 


CAL 


2,4 


00022 


0621 


00 





00035 


STA 


EPAS1 


00023 


0621 


00 





00102 


STA 


SCN2 


00024 


06 21 


00 





00066 


STA 


BA1 


00025 


06 21 


00 


6 


00104 


STA 


BA2 


00026 


040 2 


00 





00176 


SUB 


= 1 


C0027 


0621 


00 





00160 


STA 


BA3 


00030 


0600 


00 





00172 


STZ 


TEOF 


00031 


0600 


00 





00170 


STZ 


LBRK 


00032 


0600 


00 





00173 


STZ 


TSYM 


C0033 


0600 


00 





00174 


STZ 


TSTSL 



SAVE IRS. 



GET CONTROL WORD. 

RIGHT BREAK INDEX, PASS 1. 

RIGHT BREAK INDEX, PASS 2. 

SAVE TAG FOR DECISION TO STORE. 

SAVE LEFT BREAK INDEX FOR FIRST TERM. 

NDEX FOR LEFT BREAK. 

NDEX OF FIRST WORD IN FLO. 
SAVE FOR PASS2. 

NSERT FLD ADDRESSES. 



RESET EOF MARK. 
RESET LEFT BREAK. 
RESET SYMBOL MARK. 
RESET •/ MARK. 



EXPR0250 
EXPR0260 
EXPR0270 
EXPR0280 
EXPR0290 
EXPR0300 
EXPR0310 
EXPR0320 
EXPR0330 
EXPR0340 
EXPR0350 
EXPR0 360 
EXPR0370 
EXPR0380 
EXPR0 390 
EXPR0400 
EXPR0410 
EXPR0420 
EXPR0430 
EXPR0440 
EXPR0450 
EXPR046Q 



SUBROUTINE EXPR, EVALUATE EXPRESSION FOR COMPOP. 
00034 0020 00 00035 TRA EPASX GO TO PASS 1 OF EXPR. 



EXPR0470 



000 35 
00036 
00037 
C0040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00050 
00051 
00052 
00053 
COO 54 
00055 
00056 

00057 
00060 

00061 
00062 
00063 
00064 
00065 
C0066 
00067 
00070 
00071 
00072 
00073 



-0500 00 
0100 00 

-0340 00 
0020 OC 
0020 00 

-0340 00 

00 20 00 
0020 00 

-0340 00 
0020 00 
0020 00 

-0340 00 
0020 00 
0020 00 

1 77777 
3 OCOOC 

-0625 00 
0020 00 



00000 
00053 
00202 
00042 
00057 
00201 
00045 
00057 
00200 
00050 
00061 
00177 
00053 
00061 
00054 
00035 
00172 
00061 



-0625 00 00174 
0020 00 00053 



-0520 00 
0020 00 

-0634 00 
0074 00 
00000 
00000 
0600 00 
0634 00 

-0520 OC 
0020 00 
0020 00 



00174 
00070 



1 00065 



00000 
00000 
00000 
00174 
00065 
00172 
00053 
00074 



SPACE 



EPASl CAL 
TZE 
LAS 
TRA 
TRA 
LAS 
TRA 
TRA 
LAS 
TRA 
TRA 
LAS 
TRA 
TRA 

RSCN1 TXI 
TXH 
STL 
TRA 

STSL1 STL 
TRA 

PLMI1 NZT 
TRA 
SXO 
TSX 

TRMWD PZE 

BA1 PZE 
STZ 

NSTSL SXA 
NZT 
TRA 
TRA 



PASSlt REDUCE TO SUMMATION. 



FLO, 1 
RSCN1 
=H0O00O/ 

* + 2 
STSL1 
=HCOCCO» 

• +2 
STSL1 
=H0OOOO- 
•+2 
PLMI1 
=H00000+ 
•♦2 
PLMI1 
•♦1.1,-1 
EPASl, I, »• 
TEOF 
PLMll 

TSTSL 

RSCN1 

TSTSL 

NSTSL 

TRMWD, 1 

STERM.4 

•«,0,»» 

FLO 

TSTSL 

TRMWD, 1 

TEOF 

RSCN1 

EPAS2 



GET NEXT WORD IN FLD. 

IF ZERO, IGNORE. 

CHECK FOR /. 

NO, SKIP. 

YES, EXIT. 

CHECK FOR «. 

NO, SKIP. 

YES, EXIT. 

CHECK FOR -. 

NO, SKIP. 

YES, EXIT. 

CHECK FCR +. 

NO, SKIP. 

YES, EXIT. 

COUNT WCROS. 

CHECK FCR EOF. 

SET EOF MARK, 

AND TREAT AS ♦-. 

« OR / MET, SET MARK. 
RESUME SCAN. 

END OF TERM, CHECK FOR »/, 
NO, SKIP TERM. 
SET RIGHT INDEX FOR TERM. 
GO TO TERM. 



RETURN FROM TERM, RESET STSL. 
SET NEXT LEFT INDEX. 
TEST FOR EOF. 
NO, RESUME SCAN. 
YES, GO TO PASS2. 



EXPR0480 
EXPR0490 
EXPR0500 
EXPR0510 
EXPR0520 
EXPR0530 
EXPR0 540 
EXPR0550 
EXPR0560 
EXPR0570 
EXPR0580 
EXPR0590 
EXPR0600 
EXPR0610 
EXPR0620 
EXPR0630 
EXPR0 640 
EXPR0650 
EXPR0660 
EXPR0670 
EXPR0680 
EXPR0690 
EXPR0 700 
EXPR0710 
EXPR0720 
EXPR0730 
EXPR0740 
EXPR0750 
EXPR0760 
EXPR0770 
EXPR0780 
EXPR0790 
EXPR0800 
EXPR0810 
EXPR0820 
EXPR0830 



SPACE 



PASS2, COMPUTE SUM. 



00074 


0600 00 





00173 


EPAS2 


STZ 


TSYM 


RESET SYMBOL MARK. 


C0075 


-0500 00 





00177 




CAL 


•HCOCOO* 


SET LBRK=*. 


00076 


0602 00 





00170 




SLW 


LBRK 


• • 


00077 


-06 25 00 





00175 




STL 


FIRST 


SET FIRST ADDEND MARK. 


00100 


077* 00 


1 


00000 


IW01 


AXT 


»»,1 


GET INDEX OF FIRST WORD IN FLD 


00101 


0600 00 





00172 




STZ 


TECF 


RESET ECF MARK. 


00102 


-0500 00 


1 


00000 


SCN2 


CAL 


FL0,1 


GET NEXT WORD IN FLD. 


00103 


0100 00 





00115 




TZE 


RSCN2 


IF ZERO, IGNORE. 


00104 


0600 00 


1 


ooooo 


BA2 


STZ 


FLD.l 


ZERO FLD LOCATION. 


00105 


-0340 00 





00200 




LAS 


=H0O00O- 


CHECK FOR -. 


00106 


0020 00 





00110 




TRA 


•♦2 


NO, SKIP. 


00107 


0020 J)0 





00121 




TRA 


BRK 


YES, EXIT. 



EXPR0 840 
EXPR0850 
EXPR0860 
EXPR0870 
EXPR0880 
EXPR0890 
EXPR0900 
EXPR0910 
EXPR0920 
EXPR0930 
EXPR0940 
EXPR0950 
EXPR0960 
EXPR0970 
EXPR0980 



SUBROUTINE EXPR, EVALUATE EXPRESSION FOR COMPOP. 



00110 -0340 00 00177 

00111 0020 00 00113 

00112 0020 00 00121 

00113 0074 00 4 00001 

00114 -0625 00 00173 

00115 1 77777 1 00116 
C0116 3 OOOOC 1 00102 
00117 -0625 00 00172 
00120 0020 00 00121 



LAS 


=H00OO0* 


TRA 


• ♦2 


TRA 


BRK 


TSX 


$PIVAR,4 


STL 


TSYH 


RSCN2 TXI 


•+1,1,-1 


TXH 


SCN2t it* 


STL 


TECF 


TRA 


BRK 



CHECK FOR ♦. 

NO, SKIP. 

YES, EXIT. 

SYMBOL, PLACE IN VARIABLE FIELD. 

SET SYMBOL MARK. 

COUNT WORDS. 

CHECK FOR EOF. 

SET EOF MARK, 

AND TREAT AS «■-. 



EXPR0990 
EXPR1000 
EXPR1010 
EXPR1020 
EXPR1030 
EXPR1040 
EXPR1050 
EXPR1060 
EXPR1070 



SPACE 



ANALYZE BREAK. 



00121 


-0130 00 00000 


BRK 


XCL 




00122 


0500 00 00170 




CLA 


LBRK 


00123 


-0600 00 00170 




STQ 


LBRK 


00124 


0520 00 00175 




ZET 


FIRST 


00125 


002C 00 00137 




TRA 


FBRK 


G0126 


0322 00 00177 




ERA 


• HCOOCO-t- 


00127 


0100 00 00131 




TZE 


FAC 


00130 


0020 00 00134 




TRA 


FSB 


C0131 


0074 00 4 00002 


FAD 


TSX 


*GEN0P,4 


00132 


602621246060 




BCI 


1, FAD 


00133 


0020 00 00153 




TRA 


E0F2 


00134 


0074 00 4 00002 


FSB 


TSX 


SGEN0P.4 


00135 


602662226060 




BCI 


It FSB 


C0136 


002C 00 00153 




TRA 


E0F2 



GET LAST BREAK, 

AND STORE THIS ONE IN LBRK. 

CHECK FOR FIRST ADDENO. 

YES, GO TO IT. 

CHECK FOR +. 

YES, GO TO IT. 

NO, MUST BE -, GC TO IT. 

LBRK=*, OP=FAD. 

CHECK FCR EOF. 

LBRK«-, OP=FSB. 

CHECK FCR EGF. 



EXPR1080 
EXPR1090 
EXPR1100 
EXPR1110 
EXPR1120 
EXPR1130 
EXPRU40 
EXPR1150 
EXPR1160 
EXPRU70 
EXPR1180 
EXPR1190 
EXPR1200 
EXPR1210 
EXPR1220 
EXPR1230 
EXPR1240 
EXPR1250 
EXPR1260 



SPACE 



FIRST BREAK SECTION. 



00137 


-0520 00 00173 


FBRK 


NZT 


TSYM 


00140 


0020 00 00153 




TRA 


E0F2 


00141 


0600 00 00175 




STZ 


FIRST 


00142 


0322 00 00177 




ERA 


=H0OOO0+ 


00143 


0100 00 00145 




TZE 


CLA 


00144 


0020 00 00150 




TRA 


CLS 


00145 


00 74 00 4 00002 


CLA 


TSX 


$GEN0P,4 


00146 


602343216060 




BCI 


1, CLA 


00147 


0020 00 00153 




TRA 


E0F2 


C0150 


0074 00 4 00002 


CLS 


TSX 


$GEN0P,4 


00151 


602343626060 




BCI 


1, CLS 


00152 


002C 00 00153 




TRA 


E0F2 



CHECK FCR SYMBOL. 

NO SYMBCL, IGNORE UNARY OP. 

FIRST ACOEND ENCOUNTEREO. 

CHECK FOR PLUS. 

YES, GO TO IT. 

NO, MUST BE -, GC TO IT. 

LBRK=+, OP=CLA. 

CHECK FCR EOF. 

LBRK=-, OP»CLS- 

CHECK FOR EOF. 



EXPR1270 
EXPR1280 
EXPR1290 
EXPR1300 
EXPR1310 
EXPR1320 
EXPR1330 
EXPR1340 
EXPR1350 
EXPR1360 
EXPR1370 
EXPR1380 
EXPR1390 
EXPR1400 
EXPR1410 
EXPR1420 
EXPR1430 



00153 -0520 00 00172 

00154 0020 00 00115 



E0F2 



SPACE 



NZT 
TRA 



ENO-OF-FIELD AND RETURN SECTION. 



TEOF 

RSCN2 



TEST FOR EOF REACHED. 
NO, RESUME SCAN. 



EXPR1440 
EXPR1450 
EXPR1460 
EXPR1470 
EXPR1480 



SUBROUTINE EXPR, EVALUATE EXPRESSION FOR COMPOP. 



00155 
00156 
00157 
00160 
00161 
00162 
00163 
00164 
00165 
C0166 
00167 



0520 00 
0020 00 
0074 00 
0602 00 
0074 00 
0074 00 



00171 
00164 
00003 
77777 

OOOCl 
00002 



606263466060 
0774 00 4 00000 
0774 00 2 00000 
0774 00 1 00000 
0020 00 4 00003 



BA3 



RX4 
RX2 
Rxl 



ZET 

TRA 
TSX 
SLW 
TSX 
TSX 
BCI 
AXT 
AXT 
AXT 
TRA 



TAG 

RX4 

*GNST0,4 

FLO-1,1 

*P1VAR,4 

$GEN0Pt4 

1, STO 

•»i4 

•*,2 

•*.l 

3,4 



CHECK TAG OF CONTROL WORO. 
NON-ZERC, LEAVE IN AC, RETURN. 
ZERO, GENERATE TEMPORARY STORAGE. 
INSERT IN FLO. 

PLACE SYMBOL IN VARIABLE FIELD. 
FINAL OP IS STO. 

« a 

RESTORE IRS. 



RETURN TO CALLER. 



EXPR1490 
EXPR1500 
EXPR1510 
EXPR1520 
EXPR1530 
EXPR1540 
EXPR1550 
EXPR1560 
EXPR1570 
EXPR1580 
EXPR1590 



SPACE 



00170 00000 00000 LBRK PZE 



00171 


00000 00000 


TAG 


PZE 


00172 


OCOOO 00000 


TEOF 


PZE 


00173 


00000 00000 


TSYM 


PZE 


00174 


00000 00000 


TSTSL 


PZE 


00175 


00000 c 00000 


FIRST 


PZE 




00000 


FLO 


EQU 
END 


LITERALS 






00176 


000000000001 






00177 


000000000020 






00200 


000000000040 






00201 


000000000054 






00202 


000000000061 







STORAGE ANO CONSTANTS. 



LAST BREAK. 

TAG OF CONTROL WORD. 

EOF MARK. 

SYMBOL MARK. 

»/ MARK. 

FIRST AODENO MARK. 

DUMMY SYMBOL FOR FLO. 



EXPR1600 
EXPR1610 
EXPR1620 
EXPR1630 
EXPR1640 
EXPR1650 
EXPR1660 
EXPR1670 
EXPR1680 
EXPR1690 
EXPR1700 
EXPR1710 



SUBROUTINE EXPR, EVALUATE EXPRESSION FOR COHPOP. 
POST PROCESSOR ASSEMBLY DATA 

203 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 
REFERENCES TO CEFINED SYMBOLS 



66 


BA1 


24 






104 


BA2 


25 






160 


BA3 


27 






121 


BRK 


107, 


112, 


120 


145 


CLA 


143 






150 


CLS 


144 






131 


FAD 


127 









FLO 


35, 


66, 


102, 


134 


FSB 


130 






166 


RX1 


10 






165 


RX2 


7 






164 


RX4 


6, 


156 




171 


TAG 


14, 


155 




153 


E0F2 


133, 


136, 


140, 


6 


EXPR 








137 


FBRK 


125 






100 


IWC1 


20 






170 


LBRK 


31, 


76, 


122, 


102 


SCN2 


23, 


116 




172 


TEOF 


30, 


55, 


71, 





TERM 


64 






173 


TSYM 


32, 


74, 


114, 


35 


EPASl 


22t 


34, 


54 


74 


EPAS2 


73 






175 


FIRST 


77, 


124, 


141 


2 


GENCP 


131, 


134, 


I45t 


3 


GNSTC 


157 






70 


NSTSL 


62 






1 


PIVAR 


113, 


161 




61 


PLMI1 


47, 


52, 


56 


53 


RSCN1 


12t 


36, 


60, 


115 


RSCN2 


13, 


103, 


154 


57 


STSU 


41, 


44 




65 


TRMhD 


15, 


63, 


70 


174 


TSTSL 


33, 


57, 


61, 



104, 16C, 176 

147, 152 

123 

101, 117, 153 

137 

150, 162 

72 
67 



NO ERROR IN ABCVE ASSEMBLY. 

•TIME SPENT IN FAP.. 000008 IN HUNDREDTHS OF MINUTES. 



SUBROUTINE TERM, EVALUATE SIMPLE TERMS FOR EXPR. 



00006 



TRANSFER VECTOR 
00000 473165215160 
CC001 272545464760 

00002 255121622560 

00003 274562634660 

LINKAGE DIRECTOR 

00004 000000000000 

00005 632551446060 



PIVAR 
GENOP 
ERASE 
GNSTC 



PCC 
COUNT 
LBL 
ENTRY 



135 

TERM 
TERM 



BINARY CARD LABEL. 

EVALUATE TERM OF EXPRESSION. 



tTERM IS CALLEC BY, 

TSX $TERM,4 
PZE LI.O.RI 
PZE FLO 

WHERE (FLC-LI) IS THE ADDRESS OF THE LEFT BREAK, 

AND (FLD-RI) IS THE ADDRESS OF THE RIGHT BREAK. 

TERM TAKES A STRING OF SYMBOLS CONNECTED BY 

• OR / (S) AND COMPILES THE RESULT IN FLOATING 

POINT. THE RESULT IS STORED IN TEMPORARY 

STORAGE, AND THE SPREAD FIELD IS MODIFIED ACCORDINGLY. 

SOME OPTIMIZATION IS DONE. 



TERM0010 
TERM0020 
TERM0040 
TERM0050 
TERM0060 
TERM0070 
TERM0080 
TERM0090 
TERM0100 
TERM0110 
TERM0120 
TERM0130 
TERM0 140 
TERM0150 
TERM0160 
TERM0170 
TERM0180 
TERM0190 



00OC6 


0634 


00 4 00133 


TERM 


SXA 


RX4,4 


00007 


0634 


00 2 00134 




SXA 


RX2,2 


00010 


0634 


00 1 00135 




SXA 


RX1, 1 


00011 


-0500 


00 4 00001 




CAL 


1,4 


C0012 


0622 


00 00037 




STD 


RSCAN+1 


00013 


0734 


00 1 00000 




PAX 


0, 1 


00014 


1 77777 1 00015 




TXI 


•♦1,1 ,-1 


00015 


-0500 


00 4 00002 




CAL 


2,4 


00016 


0621 


00 00024 




ST A 


SCAN 


00017 


0621 


00 00026 




STA 


BA1 


00020 


0402 


00 00140 




SUB 


»1 


00021 


0621 


00 00117 




STA 


BA2 


C0022 


0621 


00 00127 




STA 


BA3 


00023 


0600 


00 00137 




STZ 


LBRK 


00024 


-0500 


00 1 00000 


SCAN 


CAL 


FLD, 1 


C0025 


0100 


00 00036 




TZE 


RSCAN 


00026 


0600 


00 1 00000 


BA1 


STZ 


FLC, 1 


00027 


-0340 


00 00142 




LAS 


=HC0000/ 


00030 


00 20 


00 00032 




TRA 


• ♦2 


C0031 


00 20 


00 00063 




TRA 


SLASH 


00032 


-0340 


00 00141 




LAS 


"HCOOOO* 


00033 


0020 


00 00035 




TRA 


• ♦2 


00034 


0020 


00 00041 




TRA 


STAR 


00035 


00 74 


00 4 00000 




TSX 


*PIVAR,4 


000 36 


1 77777 1 00037 


RSCAN 


TXI 


•♦1, 1,-1 


00037 


3 00000 1 00024 




TXH 


SCAN, 1,«» 



SAVE IRS. 



GET CONTROL WORD. 
NDEX OF RIGHT BREAK. 
NDEX OF LEFT BREAK. 
NDEX OF FIRST WCRO IN FLD. 
NSERT BUFFER ADDRESSES. 



RESET LAST BREAK. 

GET NEXT WORD IN FLD. 

IF ZERO, IGNORE. 

ZERO FLD LOCATION. 

CHECK FOR /. 

NO, SKIP. 

YES, GO TO IT. 

CHECK FOR ». 

NO, SKIP. 

YES, GO TO IT. 

SYMBOL, PLACE IN VARIABLE FIELD. 

COUNT WORDS. 

CHECK FOR EOF. 



TERM0 200 

TERM0210 

TERM0220 

TERM0230 

TERM0240 

TERM0250 

TERM0260 

TERM0270 

TERM0280 

TERM0 290 

TERM0 300 

TERM0310 

TERM0 320 

TERM0330 

TERM0 340 

TERM0350 

TERM0 360 

TERM0 370 

TERM0 380 

TERM0390 

TERM0400 

TERM0410 

TERM0420 

TERM0430 

TERM0 440 

TERM0450 

TERM0460 



00040 0020 00 00105 



SUBROUTINE TERM, EVALUATE SIMPLE TERMS FOR EXPR. 

TRA EOF EOF, GO TO IT. 



SPACE 















BREAK=». 


00041 - 


•0130 


00 


00000 


STAR 


XCL 




00042 - 


•05 00 


00 


00137 




CAL 


LBRK 


00043 - 


•0600 


00 


00137 




STO 


LBRK 


00044 


0100 


00 


00050 




TZE 


STl 


C0045 


0322 


00 


00141 




ERA 


=H00000» 


00046 


0100 


00 


00053 




TZE 


ST 2 


00047 


0020 


00 


00060 




TRA 


ST3 


00050 


00 74 


00 


4 00001 


ST1 


TSX 


SGEN0P.4 


00051 


604324506060 




BCI 


1, LCO 


00052 


0020 


00 


00036 




TRA 


RSCAN 


00053 


0074 


00 


4 00001 


ST2 


TSX 


tGEN0P,4 


C0054 


602644476060 




BCI 


1, FMP 


00055 


00 74 


00 


4 00001 




TSX 


»GEN0P,4 


00056 


606723216060 




BCI 


1, XCA 


C0057 


0020 


00 


00036 




TRA 


RSCAN 


00060 


0074 


00 


4 00001 


ST3 


TSX 


SGEN0P.4 


00061 


602624476060 




BCI 


1, FDP 


C0062 


0020 


00 


00036 




TRA 
SPACE 


RSCAN 

2 

BREAK*/. 


00063 


-0130 


00 


00000 


SLASH XCL 




C0064 


-0500 


00 


00137 




CAL 


LBRK 


00065 


-0600 


00 


00137 




STQ 


LBRK 


00066 


0100 


00 


00072 




TZE 


SL1 


00067 


0322 


00 


00141 




ERA 


»H0O00O» 


00070 


0100 


00 


00075 




TZE 


SL2 


C0071 


0020 


00 


00100 




TRA 


SL3 


000 72 


0074 


00 


4 00001 


SL1 


TSX 


$GEN0P,4 


00073 


602343216060 




BCI 


1, CLA 


00074 


00 20 


00 


00036 




TRA 


RSCAN 


00075 


0074 


00 


4 00001 


SL2 


TSX 


*GEN0P,4 


00076 


602644476060 




BCI 


1, FMP 


00077 


0020 


00 


00036 




TRA 


RSCAN 


00100 


0074 


■ 00 


4 00001 


SL3 


TSX 


$GEN0P,4 


00101 


60262**76060 




BCI 


1, FDP 


001C2 


007* 


> oc 


I 4 00001 




TSX 


$GEN0P,4 


00103 


606723216060 




BCI 


1, XCA 


00104 


002C 


) oc 


I 00036 




TRA 


RSCAN 



STAR, GET LAST 8REAK. 
THEN PLACE • IN LBRK. 

• * 

IF LBRK'O, GO TO IT. 

CHECK, LBRK**. 

YES, GO TO IT. 

NO, MUST BE /, GC TO IT. 

LBRK=0, OP-LDQ. 

RESUME SCAN. 

LBRK-«, OP=FMP. 

THEN, OP'XCA. 

RESUME SCAN. 

LBRK=1« OP»FOP. 

RESUME SCAN. 



SLASH, GET LAST BREAK. 
THEN PLACE / IN LBRK. 

IF LBRK=0, GO TO IT. 

CHECK, LBRK=». 

YES, GO TO IT. 

NO, MUST BE /, GO TO IT. 

LBRK=0, OP'CLA. 

RESUME SCAN. 

LBRK=». OP=FMP. 

RESUME SCAN. 

LBRK=1, OP*F0P. 

THEN, OP=XCA. 

RESUME SCAN. 



TERM0470 



TERM0480 

TERM0490 

TERM0 500 

TERM0510 

TERM0520 

TERM0 530 

TERM0 540 

TERM0550 

TERM0560 

TERM0570 

TERM058O 

TERM0590 

TERM0600 

TERM0610 

TERM0620 

TERM0630 

TERM0 640 

TERM0650 

TERM0660 

TERM0670 

TERM0680 

TERM0690 

TERM0 700 

TERM0710 



TERM0720 

TERM0730 

TERM0740 

TERM0750 

TERM0760 

TERM0770 

TERM0780 

TERM0790 

TERM0 800 

TERM0810 

TERM0820 

TERM08 30 

TERM0 840 

TERM0850 

TERM0860 

TERM0870 

TERM0880 

TERM0890 

TERM0900 

TERM0910 

TERM0920 

TERM0930 

TERM0940 

TERM0950 



SUBROUTINE TERM, EVALUATE SIMPLE TERMS FOR EXPR. 



SPACE 



ENC-OF-FIELO ANO RETURN SECTION. 



C01C5 


-0500 00 00137 


EOF 


CAL 


LBRK 


00106 


0100 00 00112 




TZE 


E0F1 


00107 


0322 00 00141 




ERA 


=H000C0« 


00110 


0100 00 00114 




TZE 


E0F2 


com 


0020 00 00124 




TRA 


E0F3 


00112 


0074 00 4 00002 


E0F1 


TSX 


(ERASE, 4 


00113 


0020 00 00133 




TRA 


RX4 


00114 


0074 00 4 00001 


E0F2 


TSX 


SGEN0P,4 


C0115 


602644476060 




BCI 


1, FMP 


00116 


0074 00 4 00003 




TSX 


SGNST0.4 


00117 


0602 00 1 77777 


BA2 


SLW 


FLC-1,1 


C0120 


0074 00 4 00000 




TSX 


*PIVAR,4 


00121 


0074 00 4 00001 




TSX 


SGEN0P.4 


C0122 


606263466060 




BCI 


1, STO 


00123 


0020 00 00133 




TRA 


RX4 


00124 


0074 00 4 00001 


E0F3 


TSX 


SGEN0P.4 


00125 


602624476060 




BCI 


1, FOP 


00126 


0074 00 4 00003 




TSX 


$GNST0,4 


00127 


0602 00 1 77777 


BA3 


SLW 


FLC-1,1 


00130 


0074 00 4 00000 




TSX 


*PIVAR,4 


00131 


0074 00 4 00001 




TSX 


SGENOP, 4 


00132 


606263506060 




BCI 


It STQ 


00133 


0774 00 4 00000 


RX4 


AXT 


»»,4 


00134 


0774 00 2 00000 


RX2 


AXT 


*»»2 


CC135 


0774 00 1 COOOO 


RX1 


AXT 


»«,1 


00136 


0020 00 4 00003 




TRA 


3,4 



EOF, GET LBRK. 

IF LBRK=0, GO TO IT. 

CHECK, LBRK=«. 

YES, GO TO IT. 

NO, MUST BE /, GO TO IT. 

LBRK-O, NO COMPILATION. 
GO TO RETURN. 

LBRK=», OP»FMP. 

. • 

GENERATE TEMPORARY STORAGE. 

INSERT IN FLO. 

PLACE SYMBOL IN VARIABLE FIELD. 

FINAL OP IS STO. 

GO TO RETURN. 

LBRK*/, OP=FDP. 

GENERATE TEMPORARY STORAGE. 
INSERT IN FLO. 

PLACE SYMBOL IN VARIABLE FIELD. 
FINAL OP IS STO. 



RESTORE IRS. 



RETURN TO CALLER. 



TERM0960 

TERM0 970 

TERM0980 

TERM0990 

TERM1000 

TERM1010 

TERM1020 

TERM1030 

TERM1040 

TERM1050 

TERM1060 

TERM1070 

TERM1080 

TERM1090 

TERM1100 

TERM1110 

TERM1120 

TERM1130 

TERM1140 

TERM1150 

TERM1160 

TERM1170 

TERM1180 

TERM1190 

TERM1200 

TERM1210 

TERM1220 

TERM1230 

TERM1240 

TERM1250 

TERM1260 

TERM1270 

TERM1280 



00137 



00000 00000 
00000 



LITERALS 
C0140 OOOOCOOOOOOl 

00141 000000000054 

00142 000000000061 



LBRK 
FLO 



SPACE 



PZE 
EQU 



END 



STORAGE AND CONSTANTS. 



LAST BREAK CHARACTER. 
DUMMY SYMBOL FOR FLD. 



TERM1290 
TERM1300 
TERM1310 
TERM1320 
TERM1330 
TERM1340 
TERM1350 



SUBROUTINE TERM, EVALUATE SIMPLE TERMS FOR EXPR. 
POST PRCCESSOR ASSEMBLY DATA 

143 IS THE FIRST LOCATION NOT USEC BY THIS PROGRAM 
REFERENCES TO DEFINED SYMBOLS 



127, 140 



26 


BA1 


17 






117 


BA2 


21 






127 


BA3 


22 






105 


ECF 


40 









FLD 


24, 


26, 


117, 


135 


RX1 


10 






134 


RX2 


7 






133 


RX4 


6, 


113, 


123 


72 


SL1 


66 






75 


SL2 


70 






100 


SL3 


71 






50 


ST1 


44 






53 


ST2 


46 






60 


ST3 


47 






112 


E0F1 


1C6 






114 


E0F2 


110 






124 


E0F3 


111 






137 


LBRK 


23, 


42, 


43 


24 


SCAN 


16, 


37 




41 


STAR 


34 






6 


TERM 








2 


ERASE 


112 






1 


GENOP 


50, 


53, 


55 


3 


GNSTO 


116, 


126 







PIVAR 


35, 


120, 


130 


36 


RSCAN 


12, 


25, 


52 


63 


SLASH 


31 







64, 65, 105 

60, 72, 75, 100, 102, 114, 121, 124, 131 
57, 62, 74, 77, 1C4 



NO ERROR IN ABCVE ASSEMBLY. „., T cc 

•TIME SPENT IN FAP.. 000006 IN HUNDREDTHS OF MINUTES. 



CIOP . 



BUFFERED 


1/C PACKAGE 
PCC 


FOR CA 




COUNT 


147 




LBL 


CIOP 


00003 


ENTRY 


READ1 


00154 


ENTRY 


PRINT 


00030 


ENTRY 


WCT1 


00104 


ENTRY 


REMIND 


00110 


ENTRY 


READ2 



TRANSFER VECTOR 
00000 256731636060 



NO TAPE ERROR CHECKING. 



BINARY CARD LABEL. 
READ ONE RECORD ON INPUT TAPE. 
WRITE ONE RECORD ON OUTPUT TAPE. 
URITE ONE RECORD ON COLLATION TAPE. 
END-FILE AND REWIND COLLATION TAPE. 
READ ONE RECORD FROM COLLATION TAPE. 



CI0P0010 
CIOP0020 
CIOP0040 
CIOP0050 
CIOP0060 
CIOP0070 
CIOPOOSO 
CIOP0090 
CIOP0100 



EXIT 



LINKAGE DIRECTOR 
C0001 000000000000 
00002 512521240160 



C0003 


0634 00 


2 


00013 


REA01 


SXA 


RX2.2 


C0004 


-0500 00 


4 


00001 




CAL 


1.4 


00005 


0621 00 





00015 




STA 


INCARD 


00006 


0762 00 





01202 




RTOA 


2 


00007 


0540 00 


c 


00015 




RCHA 


INCARC 


00010 


006C 00 





00010 




TCOA 


» 


00011 


0774 00 


2 


00016 




AXT 


WEOFI, 2 


00012 


0030 00 





00214 




TEFA 


ERROR 


00013 


0774 00 


2 


00000 


RX2 


AXT 


•*,2 


00014 


0020 00 


4 


00002 




TRA 


2, A 


00015 


00016 





00000 


INCARD 


IOCD 


•",0,14 


C0016 


00011 





00017 


WEOFI 


IOCD 


•♦1,0,9 


00017 


002545246046 




BCI 


9.CEND ( 


00020 


266026314325 








C0021 


605125212330 








00022 


252460663031 








00023 


432560512521 








00024 


243145276023 








C0025 


214760314547 








00026 


646360632147 








00027 


253360606060 









SAVE IR2. 

GET BUFFER ADORESS. 

INSERT IN I/O COMMAND. 

SELECT INPUT TAPE. 

START DATA CHANNEL. 

WAIT FOR OATA TO ARRIVE. 

GET ERROR COMMENT LOCATION. 

CHECK FOR ERROR. 

RESTORE IR2. 

RETURN TO CALLER. 

READ CNE 14 WORD RECORD AND STOP. 

OUTPUT COMMENT IN CASE OF ERROR. 
9.CEND OF FILE REACHED WHILE READING CAP INPUT TAPE. 



CIOPOHO 
CI0P0120 
CIOP0130 
CIOP0140 
CIOP0150 
CIOP0160 
CI0P0170 
CIOP0180 
CIOP0190 
CI0P0200 
CIOP0210 
CIOP0220 
CIOP0230 
CIOP0240 
CI0P0250 



CIOP0260 
WCT1 XRITES A 14 WORO BUFFER ON TAPE B3. IF CONTROL CIOP0270 
WORD HAS A NON-ZERO TAG, COUNT IS OBTAINED FROM DECREMENTC IOP0280 



AND RECORD IS FILLED CUT WITH BLANKS. 



THIS ROUTINE IS BUFFERED, 
WITH COMPUTATION. 



AND OUTPUT IS OVERLAPPED 



00030 


0634 00 4 


00067 


WCT1 


SXA 


WX4.4 


SAVE IRS. 


C0031 


0634 00 2 


00066 




SXA 


WX2,2 




00032 


-0520 00 


00223 




NZT 


FSTART 


IS THIS THE FIRST CALL. 


00033 


0772 00 


02203 




REWB 


3 


YES, MAKE SURE TAPE REWOUNO 


00034 


-0625 00 


00223 




STL 


FSTART 


SET MARKER. 


00035 


-0500 00 4 


OOOCl 




CAL 


1,4 


GET CCNTROL WORD. 


00036 


0625 00 


00225 




STT 


TAG 


GET TAG. 


00037 


-0520 00 


00225 




NZT 


TAG 


IF ZERO, 



CIOP0290 
CIOP0300 
CI0PQ310 
CIOP0320 
CI0P0 330 
CIOP0 340 
CI0P0350 
CIOP0360 
CI0P0370 
CIOP0380 
CI0P0390 
CIOP0400 
CIOP0410 



CIOP 



BUFFERED I/O PACKAGE FOR CAP. NO TAPE ERROR CHECKING. 



00040 


-0500 


00 





00263 




CAL 


=14B17 


00041 


-07 34 


00 


2 


00000 




POX 


0,2 


00042 


0771 


00 





00022 




ARS 


18 


00043 


0361 


00 


4 


00001 




ACL 


lt4 


00044 


06 21 


00 





00054 




ST A 


PCKUP 


00045 


0754 


00 


2 


00000 




PXA 


0,2 


00046 


0774 


00 


2 


00072 




AXT 


WE0CT.2 


00047 


0061 


00 





00047 




TCOB 


• 


000 50 


-0760 


00 





02000 




ETT8 




000 51 


0020 


00 





00214 




TRA 


ERROR 


00052 


0734 


00 


2 


00000 




PAX 


0,2 


C0053 


0774 


00 


4 


00016 




AXT 


14,4 


00054 


-0500 


00 


2 


00000 


PCKUP 


CAL 


• *,2 


00055 


0602 


00 


4 


00262 


SLW 


SLW 


WBUFF+14,4 


00056 


-2 0000 1 


4 


C0060 




TNX 


•♦2,4,1 


00057 


2 00001 


2 


00054 




TIX 


PCKUP, 2,1 


00060 


-3 00001 


4 


00064 




TXL 


•+4,4,1 


00061 


-0500 


00 





00264 




CAL 


= H 


00062 


0602 


60 





00055 




SLW» 


SLW 


C0063 


2 00001 


4 


00061 




TIX 


•-2.4,1 


00064 


0766 


00 





02223 




WTBB 


3 


00065 


-0540 


00 





00071 




RCHB 


IOWCT 


00066 


0774 


00 


2 


00000 


WX2 


AXT 


••,2 


00067 


0774 


00 


4 


00000 


WX4 


AXT 


••.4 


00070 


0020 


00 


4 


00002 




TRA 


2.4 


00071 


00016 





00244 


IOWCT 


IOCO 


WBUFF.0.14 


00072 


00011 





00073 


HEOCT 


IOCD 


•♦1..9 


00073 


002545246046 




BCI 


9.0EN0 OF 


00074 


266063214725 








00075 


605125212330 








00076 


25246066 3031 








00077 


432560665131 








00100 


633145276023 








00101 


464343216331 








00102 


464560632147 








00103 


253360606060 









00104 
00105 
00106 

00107 

00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 



0770 00 02203 

-0625 00 00224 

0772 00 02203 

0020 00 4 OO0C1 



0634 

-0520 
0020 

-0500 
06 21 
0762 

-0540 
0774 
0061 

-0030 
0774 
00 2 



00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 



00122 
00224 
00125 
00001 
00124 
02223 
00124 
00142 
00120 
00214 
00000 
00002 



REWINC MEFB 
STL 
REWB 
TRA 

REAC2 SXA 
NZT 
TRA 
CAL 
STA 
RTBB 
RCHB 
AXT 
TCOB 
TEFB 
AXT 
TRA 



ASSUME 14 WORDS IN BUFFER. 

SAVE COUNT FOR MOVE OPERATION. 

MOVE COUNT TO ADDRESS. 

FCRM END ADDRESS. 

INSERT IN PICKUP INSTRUCTION. 

SAVE IR2 IN AC. 

GET ADDRESS OF ERROR COMMENT. 

WAIT FOR PREVIOUS WRITE TO FINISH. 

CHECK FOR END CF TAPE ON LAST WRITE. 

END OF TAPE ENCOUNTEREO, GO COMPLAIN. 

RESTORE IR2. 

SET MCVE COUNTER. 

MOVE DATA INTO OUTPUT BUFFER. 

INSERT. 

COUNT. 

INDEX, AND GET NEXT WORD. 

IS BUFFER FULL. 

NO, FILL IT OUT WITH BLANKS. 

TEST FOR BUFFER FULL. 
SELECT COLLATION TAPE. 
START CHANNEL. 
RESTORE IRS. 

RETURN TO CALLER. 

WRITE A 14 WORD RECORO ANO STOP. 



9.0END OF TAPE REACHED WHILE WRITING COLLATION TAPE. 



R2X2 



3 

TREW 
3 
1.4 

R2X2.2 

TREW 

NREW 

1,4 

IOTIN 

3 

IOTIN 

WECFC2 

* 

ERROR 

••,2 

2,4 



WRITE AN END OF FILE. 
SET MARK FOR TAPE REWOUND. 
NOW REWINC TAPE. 
RETURN TO CALLER. 

SAVE IR2. 

HAS COLLATION TAPE BEEN REWOUND. 

NO, GC COMMENT. 

GET CCNTROL WORD. 

INSERT BUFFER ADDRESS IN I/O COMMAND. 

READ SELECT COLLATION TAPE. 

START CHANNEL. 

GET ACDRESS OF ERROR COMMENT. 

WAIT FOR BUFFER TO FILL. 

HAS END OF FILE BEE N REACHEO. 

ALL OK, RESTORE IR2. 

RETURK TO CALLER. 



CIOP0420 
CIOP0430 
CIOP0440 
CI0P0450 
CIOP0460 
CIOP0470 
CIOP0480 
CI0P0490 
CIOP0 500 
CIOP0510 
CIOP0520 
CIOP0530 
CI0P0540 
CIOP0550 
CI0P0560 
CIOP0570 
CIOP0580 
CIOP0590 
CIOP0600 
CI0P0610 
CI0P0620 
C10PD630 
CIOP3640 
CI0P0650 
CIOP0660 
CIOP0670 
CIOP0680 
CIOP0690 
CIOP0700 
CI0P0 710 



CIOP0720 
CI0P0730 
CI0P0740 
CIOP0750 
CIOP0760 
CIOP0770 
CIOP0780 
CIOP0790 
CI0P0800 
CIOP0810 
CI0P0820 
CIOP0830 
CI0P0840 
C10P0850 
CIOP0860 
CI0P0870 
C IOP0880 
CIOP0890 





CIOP 




• 


. BUFFERED I/O 


l PACKAGE FOR CAP. 


00124 


3 00016 





00000 


10TIN 


; IORT 


•*.i 14 


00125 


0074 


00 


4 


00154 


NREW 


TSX 


PRINT, 4 


00126 


00011 





00131 




PZE 


WNREW, 0,9 


00127 


0074 


00 


4 


00104 




TSX 


REWIND, 4 


00130 


0020 


00 





00113 




TRA 


READ2+3 


00131 


005125212402 


WNREW 


BCI 


9.CREAD2 i 


00132 


602321434325 








00133 


246022252646 








00134 


512560512566 








00135 


314524736023 








00136 


464343216331 








00137 


464560632147 








00140 


256051256646 








00141 


644524336060 








00142 


00011 





00143 


WEOFC 


IOCD 


•+1..9 


00143 


002545246046 




BCI 


9.0ENO OF 


00144 


266026314325 








00145 


605125212330 








00146 


25246066 3031 








00147 


432560512521 








00150 


243145276023 








00151 


464343216331 








00152 


464560632147 








00153 


253360 606060 








00154 


0634 


00 


2 


00201 


PRINT 


SXA 


PX2,2 


00155 


0774 


00 


2 


00204 




AXT 


WLNEX.2 


00156 


0500 


00 





00222 




CLA 


LNCNT 


00157 


0402 


00 





00262 




SUB 


= 1 


00160 


0601 


00 





00222 




STO 


LNCNT 


00161 


-0120 


00 





00214 




THI 


ERROR 


00162 


-0500 


00 


4 


00001 




CAL 


1,4 


00163 


0622 


00 





00203 




STD 


PIO 


00164 


-07 34 


00 


2 


00000 




PDX 


0,2 


00165 


0771 


00 





00022 




ARS 


18 


00166 


0361 


00 


4 


00001 




ACL 


1,4 


00167 


0621 


00 





00174 




STA 


GET 


00170 


0754 


00 


2 


00000 




PXA 


0,2 


00171 


0361 


00 





00203 




ACL 


PIO 


00172 


0621 


00 





00175 




STA 


GIVE 


00173 


0060 


00 





00173 




TCOA 


• 


00174 


-0500 


00 


2 


00000 


GET 


CAL 


••,2 


00175 


0602 


00 


2 


00000 


GIVE 


SLU 


••,2 


00176 


2 00001 


2 


00174 




TIX 


•-2.2,1 


00177 


0766 


00 





01203 




WTOA 


3 


00200 


0540 


00 





00203 




RCHA 


PIO 


00201 


0774 


00 


2 


00000 


PX2 


AXT 


• •,2 


00202 


0020 


00 


4 


00002 




TRA 


2,4 


00203 


00000 





00226 


PIO 


IOCO 


PBUFF,,»* 


00204 


00007 





00205 


HLNEX 


IOC0 


•♦It. 7 



NO TAPE ERROR CHECKING. 

READ CNE RECORD AND STOP. 
FORGOT TO REWIND, COMMENT. 

* • 

REWIND IT. 

RETURN TO READ ROUTINE. 

9.CREAD2 CALLED BEFORE REWIND, COLLATION TAPE REWOUND. 



OUTPUT COMMENT IF ERROR. 
9.0END OF FILE REACHED WHILE READING COLLATION TAPE. 



SAVE IR2. 

GET ADDRESS OF ERROR COMMENT. 

GET LINECOUNT. 

LOWER BY ONE. 

RETURN. 

EXIT IF TOO MANY LINES. 

GET CONTROL WORD. 

INSERT COUNT IN I/O COMMAND. 

GET COUNT. 

MOVE TO ADDRESS. 

FORM END AODRESS. 

INSERT IN PICKUP. 

GET COUNT. 

FORM BUFFER END ADDRESS. 

INSERT IN STORE. 

WAIT FOR LAST PRINT TO FINISH. 

MOVE DATA TO OUTPUT BUFFER. 



WRITE SELECT OUTPUT TAPE. 
START CHANNEL. 
RESTORE IRS. 
RETURN TO CALLER. 

WRITE ONE RECORD AND STOP. 

OUTPUT COMMENT IF ERROR. 



CIOP0900 
CI0P0910 
CIOP0920 
CIOP0930 
CI0P0 940 
CI0P0950 
CIOP0960 
CIOP0970 
CIOP0980 



CIOP0990 
CIOP1000 
CI0P1010 



CIOP1020 
CI0P1030 
CI0P1040 
CIOP1050 
CI0P1060 
CI0P1070 
CI0P1080 
CIOP1090 
CI0P1100 
CI0P1110 
CIOP1120 
CI0P1130 
CI0P1140 
CIOP1150 
CIOP1160 
CIOP1170 
CI0P1180 
CI0P1190 
CIOP1200 
CIOP1210 
CIOP1220 
CI0P1230 
CIOP1240 
CI0P1250 
CIOP1260 
CI0P1270 
CIOP1280 
CI0P1290 



CIOP 



BUFFEREC I/O PACKAGE FOR CAP. NO TAPE ERROR CHECKING. 



00205 
00206 
00207 
C0210 
002U 
00212 
C0213 



004751462751 
214444255160 
466463476463 
602567232525 
246260030000 
605125234651 
246233606060 



BCI 



7.CPR0GRAMMER OUTPUT EXCEEDS 300 RECORDS. 



CI0P1300 



00214 


0634 00 


2 


00216 


ERRCR 


SXA 


• ♦2,2 


00215 


0766 00 





01203 




WTDA 


3 


00216 


0540 00 





00000 




RCHA 


• • 


00217 


0074 00 


4 


00000 




CALL 


EXIT 


00220 


I COOOO 





00222 








00221 


1C403 





00001 






STORA 


00222 


ocooo 





00454 


LNCNT 


PZE 


300 


00223 


00000 





00000 


FSTART 


PZE 




C0224 


00000 





00000 


TREW 


PZE 




C0225 


00000 





ooooc 


TAG 


PZE 




00226 








PBUFF 


BSS 


14 


00244 








WBUFF 


BSS 

END 


14 


LITERALS 












C0262 


000C00000001 








00263 


000016000000 








00264 


606060606060 









GENERAL ERROR ROUTINE. 

MAKE SPECIFIED COMMENT, THEN RETURN TO MONITOR VIA EXIT. 



INSERT COMMAND LOCATION IN RCHA. 
WRITE SELECT OUTPUT TAPE. 
OUTPUT APPROPRIATE COMMENT. 
RETURN TO MONITOR FOR DUMP. 



STORAGE AND CONSTANTS. 

MAXIMUM LINECOUNT. 

FLAG FOR FIRST CALL TO MCT1. 

FLAG FOR COLLATION TAPE REWOUND. 



PRINTER OUTPUT BUFFER. 
COLLATION TAPE OUTPUT BUFFER. 



CIOP1310 
CIOP1320 
CI0P1330 
CIOP1340 
CI0P1350 
CIOP1360 
CIOP1370 
CI0P1380 



CI0P1390 
CI0P1400 
CI0P1410 
CI0P1420 
CI0P1430 
CI0P1440 
CI0P1450 
CI0P1460 
CI0P1470 



CIOP . . . BUFFERED I/O PACKAGE FOR CAP. NO TAPE ERRCR CHECKING. 
POST PROCESSOR ASSEMBLY DATA 

265 IS THE FIRST LOCATICN NOT USED BY THIS PROGRAM 

REFERENCES TO CEFINEO SYMBOLS 

200 



174 


GET 


167 




203 


PIC 


163, 


171, 


201 


Px2 


154 




13 


RX2 


3 




55 


SLU 


62 




225 


TAG 


36, 


37 


66 


HX2 


31 




67 


WX4 


30 







EXIT 


217 




175 


GIVE 


172 




125 


NREW 


112 




122 


R2X2 


110 




224 


TREW 


1C5, 


111 


30 


HCT1 






214 


ERRGR 


12, 


51, 


124 


IOTIN 


114, 


116 


71 


IOWCT 


65 




222 


LNCNT 


156, 


160 


226 


PBUFF 


203 




54 


PCKUP 


44, 


57 


154 


PRINT 


125 




3 


READ1 






110 


READ2 


130 




244 


WBUFF 


55, 


71 


72 


WEOCT 


46 




142 


WEOFC 


117 




16 


WEOFI 


11 




204 


WLNEX 


155 




131 


HNREW 


126 




223 


FSTART 


32, 


34 


15 


INCARD 


5, 


7 


104 


REWIND 


127 





121, 161 



NO ERROR IN ABCVE ASSEMBLY. 

•TIME SPENT IN FAP.. 000007 IN HUNORECTHS OF MINUTES. 



TEST OF CAP, BEG1 



50000 


056000050016 


50001 


460000050021 


50002 


053400450020 


50003 


076000000001 


5000*. 


002000050013 


50005 


060200050022 


50006 


450000050021 


50007 


036100050017 


50010 


060200050021 


50011 


450000050022 


50012 


476500000001 


50013 


200001450003 


50014 


450000050021 


50015 


0021000 70000 


50016 


000000000000 


50017 


000001000000 


50020 


434000000044 


50021 


000000000000 


50022 


000000000000 


50023 


OOOOOOOCOOIO 


U 50024 


002000000000 


E 50025 


000001000000 


OU 50032 


oooooooooooo 


50033 


050000050005 


50034 


030000050003 


50035 


060100050013 


50036 


056000050003 


50037 


026000050005 


50040 


013100000000 


50041 


026000050013 


50042 


024100050015 


50043 


013100000000 


50044 


024100050016 


50045 


013100000000 


50046 


024100050017 


50047 


460000050110 


50050 


050000050110 


50051 


060100050000 


50052 


002000050036 


50053 


050000050022 


50054 


030200050015 


50055 


060100050000 


50056 


056000050020 


50057 


026000050013 


50060 


060100050110 


50061 


050000050015 


50062 


03000C050110 


50063 


060100050111 


50064 


056000050020 


50065 


026000050111 


50066 


060100050112 



N ASSE 
CAP 

COUNT 



LCOP 
YES 



NO 

DONE 

ZERO 
ONE 
THSX 

BITS 

WORD 



COMP 



M8LY. 

REM 

REM 

LDQ 

STQ 

LXA 

LBT 

TRA 

SLM 

CAL 

ACL 

SLW 

CAL 

LGR 

TIX 

CAL 

OCTL 

REM 

OCTL 
INT 

LAS 

REM 

INT 

INT 

REM 

ILCD 

TRA 

INT 

WMW 

COMP 

CLA 

FAD 

STO 

COMP 

LDQ 

FMP 

XCA 

FMP 

FOP 

XCA 

FOP 

XCA 

FDP 

STQ 

CLA 

STO 

TRA 

COMP 

CLA 

FSB 

STO 

COMP 

LDQ 

FMP 

STO 

CLA 

FAD 

STO 

LDQ 

FMP 

STO 



THE FOLLOWING ARE ALL LEGAL CAP INSTRUCTIONS. 
PROGRAM TO COUNT BITS IN AC. 



ZERO 
BITS 
THSX 

NO 

WORD 

BITS 

ONE 

BITS 

WORD 

1 

LOOP 

BITS 

002100070000 

STORAGE. 

OOOOOOOOOOOO 

1 

36 

CATA. 







ZERO TEST CELLS 

COUNT 36 BITS. 
BIT OR NO. 
NO BIT. 
BIT, SAVE AC, 

AND INCREMENT COUNT. 



RESTORE AC. 

NEXT BIT. 

INDEX. 

GET COUNT. 

STOP WITH TRANSFER TO 70000 OCTAL. 

TRUE ZERO. 
INCREMENT OF ONE. 
ADDRESS IS 36. 



STORAGE FOR BIT COUNT. 
TEMPORARY STORAGE FOR AC. 
TEST OF CAP PSEUDO-OPS, AND FLAGS. 
8 ILLEGAL OPCODE. 

UNOEF UNDEFINED SYMBOL. 

1,2.-7, 13A3, 9 ERROR IN INTOP. 

ILLEGAL OPCODE AND UNDEFINED SYMBOL. 
YES + LOOP 



YES • NO / OONE / ZERO / ONE 



AEN 

NO 
YES 
LOOP 
NO 

COUNT * LOOP 
LOOP 
YES 

NO 
DONE 



ZERO 

ONE 
TEM 
TEM 

C°MP T USE OF SYMBOL DEFINED BY COMP. 

COUNT, 1 = WORD, 2 - DONE, 4 
WORD, 2 
CONE, 4 

COU WORD = (BITS+THSX.(ONE+THSX.(ZERO*THSXMDONE*THSX 

THSX 

NO 

TEM 

CONE 

TEM 

TEM + 1 

THSX 

TEM+1 

TEM+2 



TSTCAPOO 

TSTCAPOl 

TSTCAP02 

TSTCAP03 

TSTCAP04 

TSTCAP05 

TSTCAP06 

TSTCAP07 

TSTCAP08 

TSTCAP09 

TSTCAP10 

TSTCAPll 

TSTCAP12 

TSTCAP13 

TSTCAP14 

TSTCAP15 

TSTCAP16 

TSTCAP17 

TSTCAP18 

TSTCAP19 

TSTCAP20 

TSTCAP21 

TSTCAP22 

TSTCAP23 

TSTCAP24 

TSTCAP25 

TSTCAP26 

TSTCAP27 

TSTCAP28 



TSTCAP29 



TSTCAP30 
TSTCAP31 



•NO)))) TSTCAP32 



50067 


050000050016 


CLA 


50070 


030000050112 


FAD 


50071 


060100050113 


STO 


50072 


056000050020 


LDQ 


50073 


026000050113 


FHP 


50074 


060100050114 


STO 


50075 


050000050017 


CLA 


50076 


030000050114 


FAD 


50077 


060100050115 


STO 


50100 


056000050020 


LDQ 


50101 


026000050115 


FMp 


50102 


060100050116 


STO 


50103 


050000050021 


CLA 


50104 


030000050116 


FAO 


50105 


060100050117 


STO 


50106 


050000050117 


CLA 


50107 


060100050022 


STO 




TEM REM 




50000 ENO END 



ZERO 

TEM+2 

TEM + 3 

THSX 

TEM+3 

TEM+4 

ONE 

TEM+4 

TEM + 5 

THSX 

TEM+5 

TEM+6 

BITS 

TEM + 6 

TEM+7 

TEM+7 

WORD 

TEMPORARY STORAGE AREA BEGINS HERE. 

COUNT FINALLY THE END. 



TSTCAP33 



RETURN FROM CAP, ENTRY POINT IS 50000. 



Appendix B 
PROGRAMS TO ALLOW USE OF CAP IN THE LABORATORY 



This appendix contains FAP assembly listings of subprograms of the execution monitor 
and the 1/0 simulator used when CAP is used as a laboratory exercise. The listings are 
followed by a typical student output when running under the execution monitor. This out- 
put includes a storage map, CAP assembly listing, and postmortem. 

Index to Appendix B Page 

Main program to call execution monitor 104 

TESTS 105 

TESTS) and associated entry points 106 

RIP, WCT1, REWIND, READ2, PRINT, PPR0G, PCT1, READ1 143 

PR0G 152 

Typical output listing 155 



103 



MAIN PROGRAM FOR CAP. 



PCC 

COUNT 8 
LBL MAIN 



BINARY CARD LABEL. 



HAINOOIO 
MAIN0020 
MAIN0030 



TRANSFER VECTOR 

00000 632562636260 

00001 0074 00 4 OOOOO 

00002 

00002 -3 77777 7 77777 
C0003 -3 77777 7 77777 
00004 -3 77777 7 77777 



TESTS 



TSX 


STESTS.4 


DUP 


1.3 


SVN 


-1,7,-1 



GO TO TESTS WITH INDEX. 

THESE CARDS CANNOT BE DUPLICATED. 



END 



MAIN0050 
MAIN0060 
HAIN0070 



MAIN0080 



POST PROCESSOR ASSEMBLY DATA 
5 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 



REFERENCES TO OEFINED SYMBOLS 
TESTS 1 



NO ERROR IN ABOVE ASSEMBLY. „„„,„«. nc uim.itc: 

•TIME SPENT IN FAP.. 000002 IN HUNDREDTHS OF MINUTES. 



TESTS FOR CAP, SWITCH FOR INTERVAL TIMER. 



00004 



TRANSFER VECTCR 
COOOO 633163606060 
00001 632562636234 

LINKAGE DIRECTOR 
C0002 000000000000 
C0003 632562636260 

00004 0760 00 00161 

00005 -0625 60 00000 

00006 0772 00 01206 

00007 0021 60 00001 



PCC 
COUNT 
LBL 
ENTRY 



TIT 
TESTS) 



END 



12 

TESTS 

TESTS 



TESTS SWT 


1 


STL* 


$TIT 


REWA 


6 


TTR« 


STESTS) 



BINARY CARD LABEL. 
INTERLUDE TO TESTS). 



TEST SWITCH ONE FOR INTERVAL TIMER USE. 
SWITCH ONE UP, USE CORE CLOCK. 
REWIND UPDATE INPUT TAPE. 
THEN GO OIRECTLY TO TESTS). 



TESTS010 
TESTS020 
TESTS030 
TESTS050 
TESTS060 



TESTS070 
TESTS080 
TESTS090 
TESTS100 
TESTS110 
TESTS120 



POST PROCESSOR ASSEMBLY DATA 
10 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 

REFERENCES TO DEFINEC SYMBOLS 

TIT 5 
4 TESTS 

1 TESTS) 7 



NO ERROR IN ABCVE ASSEMBLY. 

•TIME SPENT IN FAP.. 000002 IN HUNDREDTHS OF MINUTES. 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 



BINARY CARD LABEL. 





PCC 






COUNT 


1409 




LBL 


TESTS) 


00007 


ENTRY 


TESTS) 


00702 


ENTRY 


BACK 


00235 


ENTRY 


TIT 


00663 


ENTRY 


LSTM 


01145 


ENTRY 


SX4 


01146 


ENTRY 


SVCON 


02407 


ENTRY 


HOT 


02520 


ENTRY 


NPRINT 


01026 


ENTRY 


EPMR 


01260 


ENTRY 


OCT) 


01173 


ENTRY 


OCTADR 


01233 


ENTRY 


COMADR 


01207 


ENTRY 


TABBLK 


01301 


ENTRY 


BCDTAB 



PRIMARY NAME OF MONITOR. 

RETURN POINT IN CASE OF ERROR. 

TEST LOCATION TO USE INTERVAL TIMER. 

LEAVE-SELECT-TRAPPING MODE. 

ENTRY TO SAVE I R4 FOR POST MORTEM. 

ENTRY TO SAVE CONSOLE FOR POST MORTEM. 

WRITE-OLTPUT-TAPE, A3. 

ON LINE PRINT UNOER CARRIAGE CONTROL. 

ENTRY TO MARK ERROR POST MORTEM. 

FULL WORD OCTAL-BCI CONVERTER. 

OCTAL ADDRESS TO BC I CONVERTER. 

COMPLEMENT ADDRESS TO BCI CONVERTER. 

TA8LE FOR DELETION OF BLANKS WITH CRO. 

ENTRY TO REMOVE ILLEGAL BCI CHARACTERS. 



TT)00010 
TT 100020 
TT100030 
TT100050 
TTI00060 
TT100070 
TT)00080 
TT)00090 
TT100100 
TT100110 
TT)00120 
TT)00130 
TT)00140 
TTI00150 
TTI00160 
TT100170 
TT100180 
TT100190 



o 
a- 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 1, SETUP LOWER CORE AND PRINT STORAGE HAP. 



TRANSFER VECTOR 



COOOO 
OOOOl 
00002 
00003 
00004 



444665312534 
513147606060 
232147606060 
474751462760 
472363016060 



LINKAGE DIRECTOR 

00005 000000000000 

00006 632562636234 



TTL 



MOVIE) 

RIP 

CAP 

PPROG 

PCT1 



SECTION 1, SETUP LOWER CORE AND PRINT STORAGE MAP. 



TT>10000 



00007 


-0760 


00 


00007 


TESTS) LTM 




00010 


-0760 


00 


00002 


EFTM 




00011 


-0760 


00 


00010 


LSNM 




00012 


0600 


00 


00005 


ST2 


5 


00013 


0760 


00 


00012 


OCT 




00014 


0761 


00 


00000 


NOP 




00015 


0140 


00 


00016 


TOV 


• ♦1 


00016 


0441 


00 


03125 


LDi 


»0 


00017 


0760 


00 


00140 


SLF 




00020 


0774 


00 4 


00144 


AXT 


100,4 


00021 


0600 


00 4 


00144 


STZ 


100,4 


C0022 


0600 


00 4 


00145 


STZ 


101,4 


00023 


2 00002 4 


00021 


TIX 


•-2,4,2 


00024 


-0500 


00 


00026 


CAL 


• + 2 


00025 


0602 


00 


00015 


SLW 


13 


00026 


05 64 


00 


03127 


ENB 


= 2 


00027 


-0500 


00 


00167 


CAL 


cm 


00030 


0602 


00 


00001 


SLW 


i 


00031 


-0500 


00 


00170 


CAL 


cm 


C0032 


0602 


00 


00002 


SLW 


2 


00033 


-0500 


00 


00171 


CAL 


C(7) 


00034 


0602 


00 


00007 


SLW 


7 


C0035 


-0500 


00 


00172 


CAL 


CI8) 


C0036 


0602 


00 


00010 


SLW 


8 


00037 


-0500 


00 


00173 


CAL 


CI 13) 


00040 


0602 


00 


00015 


SLW 


13 


00041 


-05 00 


00 


00174 


CAL 


CIST) 


C0042 


0602 


00 


40001 


SLW 


16385 


00043 


0602 


00 


40002 


SLW 


16386 


00044 


0764 


00 


01203 


BSRA 


3 


00045 


0060 


00 


00045 


TCOA 


» 


C0046 


0760 


00 


000C5 


IOT 




00047 


0761 


00 


00000 


NOP 




00050 


-0760 


00 


01000 


ETTA 




00051 


0761 


00 


00000 


NOP 





JUST IN CASE. 



RESET INTERVAL TIMER. 
TURN OFF OCT LIGHT. 

• • 

TURN OFF OVERFLOW LIGHT. 
CLEAR INDICATORS. 
TURN OFF SENSE LIGHTS. 
WIPE OUT LOWER CORE. 



SET THE INITIAL TRAP WITH AN ENABLE. 

• • 

THIS MAY TRAP. 

SETUP LOWER CORE, ETM RETURN. 

STR RETURN. 

• • 

SET INTERVAL TIMER RETURN. 

• a 

FPT RETURN. 

CHANNEL B TRAP RETURN. 

• • 

SELECT TRAP RETURN. 

=/4C001. 

■/40002. 

REMOVE MONITOR COMMENT OF EXECUTION. 

WAIT FOR DSC A. 

TURN OFF I/O CHECK LIGHT. 

TURN OFF EOT LIGHT. 



TTJ10010 

TT)10020 

TTJ10030 

TTU0040 

TTJ10050 

TT 110060 

TTI10070 

TT) 10080 

TT) 10090 

TTU0100 

TTUOUO 

TT 110120 

TTJ10130 

TTJ10140 

TTI10150 

TTJ10160 

TTUOUO 

TTJ1D180 

TT)10190 

TT) 10200 

TT)10210 

TT) 10220 

TTI10230 

TT 110240 

TTJ10250 

TT 110260 

TTI10270 

TT110280 

TT) 10290 

TTU0300 

TT)10310 

TTU0320 

TTU0 330 

TTU0340 

TTI10350 



SPACE 



PRINT STORAGE MAP UP TO TESTS. 



00052 


-0500 60 00000 


MAP 


CAL» 


SMOVIE) 


00053 


0771 00 00022 




ARS 


18 



GET CONTROL WORD OF MOVIE). 
CALCULATE LAST ADDRESS ♦ 1. 



TT)10360 
TT)10370 
TTU0380 
TTU0 390 
TTU3400 



TESTS* FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 1, SETUP LOWER CORE AND PRINT STORAGE MAP. 



00054 

00055 

00056 

00057 

00060 

00061 

00062 

00063 

00064 

00065 

00066 

00067 

00070 

C0071 

00072 

00073 

00074 

00075 

00076 

00077 

00100 

00101 

00102 

00103 

00104 

00105 

00106 

00107 

00110 

00111 

00112 

00113 

00114 

00115 

00116 

00117 

00120 

00121 

00122 

00123 

00124 

00125 

00126 

00127 

00130 

00131 

00132 

00133 

00134 

C0135 

00136 

00137 

00140 



0361 60 
0621 00 
0621 00 
0402 00 
0621 00 
0400 00 
0621 00 
0400 00 
0621 00 
0774 00 
0774 00 
0074 00 
0000 6 
0074 00 

0C004 
0500 00 
0402 00 
0100 00 

-0500 00 

-0320 00 

0100 00 

1 0000 2 
0500 00 



00000 
00073 
00076 
03127 
00106 
03126 
00104 
03127 
00102 
00002 
00036 
02407 
00141 
02407 
00147 
00000 
03162 
00102 
00000 
03164 
00102 
00073 
00000 



0621 00 1 03067 



-0500 00 
0621 00 
-0500 00 
-0100 00 
-0500 00 



00000 
03125 
00000 
00111 
03163 



0602 00 1 03031 
0602 00 00154 



0560 00 
0074 00 

-0600 00 
C56C 00 
0074 00 

-0600 00 
0074 00 

00004 
-0500 00 
-0340 00 

0020 00 

0020 00 

-2 0000 1 

1 00004 
0074 00 
00004 

-0634 00 
0074 00 
00004 
0061 00 
0140 00 
0020 00 



03067 
01173 
00155 
03125 
01173 
00156 
02407 
00153 
03031 
03161 
00127 
00133 
00131 
00073 
02407 
00157 
01447 
02407 
00163 
00136 
00175 
00175 



SRCH 



MORG 



C0141 006264224751 



ACL* 

ST A 

STA 

SUB 

STA 

AOO 

STA 

AOO 

STA 

AXT 

AXT 

TSX 

PZE 

TSX 

PZE 

CLA 

SUB 

TZE 

CAL 

ANA 

TZE 

TXI 

CAL 

STA 

CAL 

STA 

CAL 

TNZ 

CAL 

SLW 

SLW 

LOQ 

TSX 

STQ 

LDQ 

TSX 

STQ 

TSX 

PZE 

CAL 

LAS 

TRA 

TRA 

TNX 

TXI 

TSX 

PZE 

SXO 

TSX 

PZE 

TCOT 

TOV 

TRA 



XMAP01 BCI 



COMPLETE ADDRESSES. 



EXCM 



T.MAP 



SKIP FIRST TWO WORDS OF MOVIE). 
SET MAXIMUM NUMBER OF ENTRIES. 
COMMENT. 

• • 

COMMENT, HEADINGS. 



iMCVIE) 

SRCH 

SRCH+3 

=2 

MORG+4 

-1 

M0RG*2 

= 2 

MORG 

2,2 

NSYM, 1 

WOT, 4 

XMAP01,0,6 

HOT, 4 

XMAP02.0.4 

..,2 GET CURRENT WORD. 

=0700000000000 CHECK FOR SEVEN PREFIX. 

HORG IF SO, EXIT TO PRINT NAME AND ORIGIN. 

# »,2 IF NOT, CHECK TRANSFER VECTOR. 

•0777400777777 MASK OUT LARGEST POSSIBLE DECREMENT. 

MORG IF ZERO, EXIT TO PROGRAM ORIGIN. 

SRCH, 2, 2 NOT AN ORIGIN, BACK UP BY 2. 

..,2 PROGRAM ORIGIN, GET ABSOLUTE ORIGIN. 

ORIGIN+NSYM, 1 STORE IN TABLE. 

...2 GET ENTRY POINT. 

ENTRY+NSYM.l STORE IN TABLE. 

»»,2 GET BCI NAME. 

•♦2 IF ALL ZEROES, 

=H(MAIN) MUST BE MAIN PROGRAM. 

NAME+NSYM.l STORE IN TABLE. 

XMAP03+1 INSERT IN COMMENT. 

ORIGIN+NSYM, 1 GET ORIGIN AND CONVERT TO OCTAL-BCI. 

0CTADR,4 

INSERT IN COMMENT. 

GET ENTRY POINT ANO CONVERT TO OCTAL-BCI. 



XMAP03+2 

ENTRY*NSYM,1 

0CTADR.4 

XMAP03+3 

WOT, 4 

XMAP03,0,4 

NAME+NSYM.l 

=HTESTS 

• ♦2 

TMAP 

EXCM, 1,1 

SRCH, 2, 4 

WOT, 4 

XMAP04,1,4 

LSUB,1 

WOT, 4 

XMAP05.0.4 

* 

EVAL 

EVAL 



INSERT IN COMMENT. 
WRITE THIS COMMENT. 

IF THIS NAME IS TESTS, QUIT. 

NO, CONTINUE. 
YF ^ EXIT 

no.'count'entries in table, 
skip over four and try again, 
comment, symbol table exceeoed. 

save count of symbol table for post mortem 
comment, end of symbol table. 

wait for timing channel, 
turn off ovf light, 
and go to eval. 



6.0SUBPROGRAM STORAGE MAP FOLLOWS. 



TT110410 

TTU0420 

TTU0430 

TT 110440 

TTU0450 

TTI10460 

TT110470 

TT)10480 

TTU0490 

TT110500 

TT110510 

TT110520 

TT110530 

TTI10540 

TTU0550 

TT113560 

TT)10570 

TT110580 

TTU0590 

TTU0600 

TT110610 

TTI10620 

TT110630 

TT 110 640 

TT) 10650 

TT) 10660 

TTU0670 

TT) 10680 

TT110690 

TT110700 

TT110710 

TT 1 10720 

TT110730 

TTI10740 

TT110750 

TT 110760 

TT 110770 

TT110780 

TT110790 

TT 110800 

TT110810 

TTH0820 

TT110830 

TTU0840 

TTI10850 

TT110860 

TTU0870 

TT110880 

TTU0890 

TT110900 

TT110910 

TTU0920 

TT110930 

TTU0940 

TTU0950 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 1, SETUP LOWER CORE AND PRINT STORAGE MAP. 



00142 


462751214460 










00143 


626346512127 










00144 


256044214760 










00145 


264643434666 










00146 


623360606060 










00147 


006060 606060 


XMAP02 


BCI 


4,0 NAME ORIGIN ENTRY 


00150 


452144256060 










00151 


465131273145 










00152 


602545635170 










00153 


006060606060 


XMAP03 


BCI 


4,0 




00154 


606060 606060 










00155 


606060606060 










00156 


606060606060 










00157 


006270442246 


XMAP04 


BCI 


4,0SYMBOL 


TABLE EXCEEDED. 


00160 


436063212243 










00161 


256025672325 










C0162 


252425243360 










00163 


002545246046 


XMAP05 


BCI 


4.0END OF 


STORAGE MAP. 


00164 


266062634651 










00165 


212725604421 










00166 


473360606060 










00167 


0021 00 00262 


cm 


TTR 


TRAPR 


ETM TRAP RETURN. 


00170 


0021 00 00314 


C(2) 


TTR 


STRR 


STR RETURN. 


00171 


0021 00 00524 


cm 


TTR 


TIMR 


INTERVAL TIMER RETURN 


00172 


0021 00 00404 


C(S) 


TTR 


FPTR 


FPT RETURN. 


00173 


0021 00 00533 


C(13) 


TTR 


SLR 


STOP-LOOP RETURN. 


00174 


0021 00 00627 


C(ST) 


TTR 


IOTMR 


SELECT TRAP RETURN. 




02223 


T 


TAPENO 


B3B 


TAPE FOR TIMER. 



TT) 10960 



TTK0970 



TTU0980 



TT110990 



TT111000 
TTU1010 
TTI11020 
TTJ11030 
TTU1040 
TT111050 
TTJ11060 
TTJ11070 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
SECTION 2, SET TRAPS, TIME ANO EXIT TO CAP. 



00175 
00176 
00177 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
C0226 
00227 
00230 
00231 
00232 
002 33 

00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
C0245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 



0074 00 

0000 7 

0074 00 

00001 

0074 00 

0520 00 

00 20 00 

0766 00 

-0540 00 

0020 OC 

-0500 00 

0760 00 

0601 00 

0600 00 

-0760 00 

-0500 00 

0074 00 

0621 00 

-0760 00 

0634 00 

0074 00 

0560 00 

0074 00 

-0754 00 

-0763 00 

-0602 00 

-0130 00 

-0602 00 

0074 00 

00011 

00 20 00 



02407 
00241 
02407 
03160 
00001 
00235 
00207 
02223 
00237 
00213 
03136 
00006 
00005 
00006 
00005 
00234 
00002 
00236 
00007 
01166 
01146 
00236 
01173 
00000 
00036 
00257 
00000 
00260 
02407 
00250 
00702 



+00O000050C0O 
00000 00000 
00000 00000 
-0 60650 17130 
-1 60650 17130 
016060606060 
606060606060 
632562636046 
266023214773 
6022252731^5 
602162622544 
224370336060 
006060 606060 
606C60 606060 
512563645145 
602651464460 
232147736025 
456351706047 
463145636031 
626000000000 
003360606060 



EVAL 



ITIM 



ESTM 



TTL 

TSX 

PZE 

TSX 

PZE 

TSX 

ZET 

TRA 

WTBT 

RCHT 

TRA 

CAL 

COM 

STO 

STZ 

ESTM 

CAL 

TSX 

ST A 

LTM 

SXA 

TSX 

LOO. 

TSX 

PXO 

LGL 

ORS 

XCL 

ORS 

TSX 

PZE 

TRA 

OCT 

PZE 

EXEC PZE 

TIME IOCP 

IOCT 

TCAP BCI 



SECTION 2, SET TRAPS, TIME AND EXIT TO CAP. 



ORG 
TIT 



HEP 



BCI 



WOT, 4 

TCAP ,0,7 

MOT, 4 

=H 

*RIP,4 

TIT 

ITIM 

TIME 
ESTM 
-300 

5 

6 

ORG 

*CAP,4 

EXEC 

IR4.4 

SWC0N.4 

EXEC 

0CTA0R.4 

0,0 

30 

WEP+7 

WEP+8 
WOT, 4 
WEP.0,9 
BACK 

50000 



,0,1 



EXECUTION COMMENT. 

BLANK LINE. 

GO SET UP READ PROGRAMS. 

TEST FOR INTERVAL TIMER. 

GO TO INTERVAL TIMER. 

TAPE TIMER, SELECT TIMER TAPE. 

LOAD WITH TIME. 

GO TO SET TRAP. 

SET INTERVAL TIMER FOR FIVE SECONDS. 

INSERT IN TRAP LOCATION. 

CLEAR LOCATION RETURN. 

SET TRAP. 

SET ORIGIN. 

GO TO CAP. 

SAVE ENTRY POINT. 

JUST IN CASE. 

SAVE IR4. 

SAVE CONSOLE. 

CONVERT ENTRY TO OCTAL-BCI. 

SHIFT AND OR TO COMMENT. 



COMMENT, ENTRY POINT. 

NO PROVISION FOR EXECUTION FOR NOW. 



CAP PROGRAM ORIGIN. 

LOCATION TO TEST FOR INTERVAL TIMER. 

DUMMY TRA TO ASSEMBLED PROGRAM. 
-25000,0,25000 TIMED FOR ABOUT 5 SECONDS. 
-25000,0,25000 .. 
7,1 TEST OF CAP, BEGIN ASSEMBLY. 



9,0 



RETURN FROM CAP, ENTRY POINT IS 00000. 



TT120000 
TT 120010 
TT120020 
TTI20030 
TT 120040 
TT120050 
TT120060 
TT)20070 
TT)20080 
TT)20090 
TT)20100 
TT120110 
TT120120 
TTI20130 
TT)20140 
TTI20150 
TT120160 
TTI20170 
TTI20180 
TT)20190 
TT 120200 
TTI20210 
TT120220 
TTJ20230 
TTJ20240 
TT120250 
TT120260 
TT120270 
TT120280 
TT123290 
TT123300 
TTJ20310 
TT)20320 
TTI20330 
TT120340 
TT 123 350 
TT)20 360 
TTI20370 
TTI20380 
TT120390 



TT120400 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
SECTION 3, TRAP RETURNS AND LSTM. 



00261 00000 00000 



TTL SECTION 3, TRAP RETURNS ANO LSTM. 
CUIT IOCD 0,0,0 COMMAND TO DISCONNECT CHANNEL. 



TT)30000 
TT130010 
TT130020 



00262 
00263 
00264 
00265 
00266 
00267 
002 70 
00271 
00272 
002 73 
002 74 
00275 
00276 
00277 
00300 
00301 

00302 
00303 
00304 
C0305 
00306 
00307 
00310 
00311 
00312 
00313 



-0760 00 

C634 00 

0074 00 

-0520 00 

0020 00 

0560 00 

0074 00 

-0754 00 

-0763 00 

-0602 00 

-0130 00 

-0602 00 

0074 00 

00012 

-0625 00 

00 20 



00007 
01166 
01146 
00000 
00361 
00000 
01173 
00000 
00022 
00307 
00000 
00310 
02407 
00302 
01026 
00702 



006351 
262551 
626351 
314645 
604346 
314645 
000000 
626022 
606351 
252433 



214562 
603145 
642363 
603145 
232163 
600000 
603021 
252545 
214747 
60 6060 



SPACE 



TRAPR LTM 
SXA 
TSX 
NZT 
TRA 
LDQ 
TSX 
PXO 
LGL 
ORS 
XCL 
ORS 
TSX 
PZE 
STL 
TRA 

XTRAP BC I 



TRAPPING MODE RETURN. 



IR4.4 

SVC0N.4 



SEOR 



0CTADR.4 

0,0 

18 

XTRAP+5 

XTRAP+6 
HOT, 4 

XTRAP, 1,10 
EPMR 
BACK 



RETURN FROM TRANSFER TRAP. 

SAVE IR4. 

SAVE CONSOLE. 

IF LOCATION NOT SET, 

MUST BE A WILD TRANSFER. 

GET AOORESS OF TRANSFER INSTRUCTION. 

CONVERT TO OCTAL-BCD. 

SHIFT AND OR TO COMMENT. 



COMMENT. 

• • 

SET TO GIVE ERROR POST MORTEM. 
EXIT TO POST MORTEM SECTION. 



9.0TRANSFER INSTRUCTION IN LOCATION 00000 HAS BEEN TRAPP 



TT130030 
TT)30040 
TTI30050 
TT130060 
TT 130070 
TTI30080 
TT 130090 
TTJ30100 
TT130110 
TTJ30120 
TT130130 
TTI30140 
TTI30150 
TT)30160 
TT)30170 
TT130180 
TT)30190 
TT 130200 
TT130210 
TT130220 
TT130230 



BCI 



1,ED. 



TT 130240 



SPACE 













STR RETURN 


00314 


-0760 00 





00007 STRR LTM 




00315 


0634 00 


4 


01166 


SXA 


IR4.4 


00316 


0074 00 


4 


01146 


TSX 


SVC0N.4 


00317 


-0520 00 





00000 


NZT 





00320 


0020 00 





00361 


TRA 


SECR 


00321 


0534 00 


4 


00000 


LXA 


0,4 


00322 


1 77777 


4 


00323 


TXI 


•+1,4,-1 


00323 


0634 00 


4 


00324 


SXA 


• +1,4 


00324 


0560 00 


Q 


00000 


LDQ 





00325 


-0754 00 





00000 


PXD 


o,c 


00326 


-0763 00 





00003 


LGL 


3 


00327 


0402 00 





03131 


SUB 


'5 


00330 


0100 00 





00334 


T2E 


• + 4 


00331 


-0500 00 





00000 


CAL 





00332 


06 21 00 





00610 


ST A 


SACR 



RETURN FOR TRAPPED STR. 

SAVE IR4. 

SAVE CONSOLE. 

IF LOCATION NOT SET, 

MUST BE A WILD TRANSFER. 

GET A(STRI+1. 

DECREMENT IT. 

CHECK FCR PROGRAMMED STR. 



YES. 

IF NOT, STOP OR LOOP. 



TT)30250 
TT130260 
TT)30270 
TT130280 
TT) 30 290 
TT) 30 300 
TT13031O 
TTI30320 
TT130330 
TT)30 340 
TT130350 
TT)30360 
TTI30370 
TT130380 
TT)30390 
TT 130400 
TTJ30410 
TT 130420 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
SECTION 3, TRAP RETURNS AND LSTM. 



00333 0020 00 00541 



00334 


0754 00 


4 


00000 


00335 


-0130 00 





00000 


00336 


0074 00 


4 


01173 


00337 


-0754 00 





00000 


00340 


-0763 00 





00014 


00341 


-0602 00 





00354 


00342 


-0130 00 





00000 


00343 


-0602 00 





00355 


00344 


0074 00 


4 


02407 


00345 


00011 


1 


00350 


00346 


-0625 00 





01026 


00347 


0020 00 





00702 


00350 


006263516031 


00351 


456263516423 


00352 


633146456031 


00353 


456043462321 


00354 


633146456000 


00355 


000000006030 


00356 


216260222525 


00357 


456063512147 


00360 


472524336060 



TRA 


SLR1 


PXA 


0.4 


XCL 




TSX 


0CTADR.4 


PXD 


0,0 


LGL 


12 


ORS 


XSTR*4 


XCL 




ORS 


XSTR+5 


TSX 


HOT, 4 


PZE 


XSTR,1,9 


STL 


EPMR 


TRA 


BACK 



XSTR BCI 



PROGRAMMED STR. 
CONVERT TO OCTAL-BCD. 
SHIFT AND OR TO COMMENT. 

• * 

COMMENT. 

SET TO GIVE ERROR POST MORTEM. 
EXIT TO POST MORTEM SECTION. 

9.0STR INSTRUCTION IN LOCATION 00000 HAS BEEN TRAPPED. 



TT I 30430 
TT ) 30440 
TTI30450 
TT130460 
TTI30470 
TT130480 
TT130490 
TT 130500 
TT130510 
TTI30520 
TTI30530 
TTI30540 
TT)30550 
TTI30560 
TTI30570 
TTI3058O 



SPACE 



00361 


0074 00 4 02407 


SEQR TSX 


HOT, 4 


00362 


00017 1 00365 


PZE 


XSEOR, 1,15 


00363 


-0625 00 01026 


STL 


EPMR 


00364 


0020 00 00702 


TRA 


BACK 


00365 


006351214562 


XSEOR BCI 


9.0TRANSFE 


00366 


262551606346 






00367 


604346662551 






00370 


602346512533 






00371 


604751462221 






00372 


224370603151 






00373 


046045466360 






00374 


512562256373 






00375 


604651606321 






00376 


276044316262 


BCI 


6,G MISSIN 


00377 


314527602651 






00400 


464460635121 






00401 


456226255160 






00402 


314562635164 






00403 


236331464533 







ENTRY FOR SEQUENCING tRROR. 

COMMENT FOR BAD CALLING SEQUENCE. 

SET TO GIVE ERROR POST MORTEM. 
EXIT TO POST MORTEM SECTION. 

9.0TRANSFER TO LOWER CORE. PROBABLY IR4 NOT RESET, OR 



TT130590 
TT)30600 
TT)30610 
TT130620 
TTJ30630 
TTI30640 
TT130650 
TT)30660 
TA TT130670 



TT130680 



00404 -0520 00 00000 



SPACE 
FPTR NZT 



FLOATING POINT TRAP RETURN. 

IF LOCATION NOT SET, 



TT)30690 
TT130700 
TT130710 
TT130720 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
SECTION 3, TRAP RETURNS AND LSTM. 



00405 


0021 


00 





00425 


TTR 


TR8 


MUST BE A WILD TRANSFER. 


TT130730 


00406 


0604 


00 





00473 


ST I 


SSI 


SAVE THE INDICATORS. 


TT 130 740 


00407 


0441 


00 





00000 


LD1 





GET SPILL CODE. 


TT130750 


00410 


-00 54 


00 




000004 


LFT 


4 


CHECK FOR OVERFLOW. 


TT130760 


00411 


0021 


00 





00431 


TTR 


FPER 


OVERFLOW, EXIT. 


TT 130770 


00412 


-00 54 


00 




000002 


LFT 


2 


AC UNDERFLOW. 


TT)30780 


00413 


0500 


00 





03125 


CLA 


= 


YES, RESET AC. 


TT130790 


00414 


-0054 


00 


! 


000001 


LFT 


1 


MO UNDERFLOW. 


TT)30800 


00415 


0560 


00 





03125 


LDQ 


= 


YES, RESET MQ. 


TT)30810 


00416 


0441 


00 





00473 


LDI 


SSI 


RESTORE ORIGINAL INDICATORS. 


TT)30820 


00417 


0634 


00 


4 


00422 


SXA 


•♦3,4 


SAVE IR4. 


TTJ30830 


00420 


0534 


00 


4 


00000 


LXA 


0,4 


PICKUP 0. 


TT)30 840 


00421 


06 34 


00 


4 


00424 


SXA 


•+3,4 


INSERT RETURN ADDRESS. 


TT)30850 


00422 


0774 


00 


4 


00000 


AXT 


• • ,4 


RESTORE IR4. 


TT) 30860 


0042 3 


0600 


00 





00000 


STZ 





CLEAR LOCATION 0. 


TT 130870 


00424 


0021 


00 





00000 


TTR 


• * 


RETURN TO CALLER. 


TT130880 
TTI30890 


00425 


-0760 


00 





00007 TR8 LTM 




JUST IN CASE. 


TTI30900 


00426 


06 34 


00 


4 


01166 


SXA 


IR4,4 


SAVE IR4 FOR POST MORTEM. 


TT130910 


00427 


00 74 


00 


4 


01146 


TSX 


SVC0N.4 


GO SAVE CONSOLE AND RESET TRAPS. 


TT)30920 


00430 


00 20 


00 





00361 


TRA 


SEQR 


GO TO SEQR ROUTINE. 


TTI30930 
TT 130940 


00431 


-0760 


00 





00007 FPER LTM 




JUST IN CASE. 


TT130950 


00432 


0634 


00 


4 


01166 


SXA 


IR4,4 


SAVE IR4. 


TTI30960 


00433 


0441 


00 





00473 


LOI 


SSI 


RESTORE INDICATORS. 


TT)30970 


00434 


0074 


00 


4 


01146 


TSX 


SVC0N.4 


SAVE CONSOLE. 


TT130980 


00435 


0441 


00 





00000 


LDI 





GET SPILL CODE AND ADDRESS OF INSTRUCTION. 


TT) 30990 


00436 


-0056 


00 


000010 


LNT 


10 


DIVISION ERROR. 


TT131000 


00437 


0020 


00 





00443 


TRA 


• ♦4 


NO, SKIP. 


TT131010 


00440 


0074 


00 


4 


02407 


TSX 


WOT, 4 


YES, COMMENT. 


TTI31020 


00441 


0000 3 


1 


00474 


PZE 


WDVER,1,3 


• • 


TTI31030 


00442 


0020 


00 





00453 


TRA 


SPER 


EXIT. 


TT)31040 


00443 


-0056 


00 


000002 


LNT 


2 


ACCUMULATOR OVERFLOW. 


TT)31050 


00444 


00 20 


00 





00447 


TRA 


• ♦3 


NO, SKIP. 


TT131060 


00445 


0074 


00 


4 


02407 


TSX 


WOT, 4 


YES, COMMENT. 


TT131070 


00446 


00004 


1 


00477 


PZE 


WACO, 1,4 


. . 


TTI31080 


00447 


-00 56 


00 


000001 


LNT 


1 


MQ OVERFLOW. 


TT)31090 


00450 


00 20 


00 





00453 


TRA 


SPER 


NO, EXIT. 


TT131100 


00451 


0074 


00 


4 


02407 


TSX 


WOT, 4 


YES, COMMENT. 


TT131110 


00452 


00005 


1 


00503 


PZE 


WMQO.1,5 


. . 


TT)31120 


00453 


-0500 


00 





00000 SPER CAL 





GET SPILL CODE. 


TTJ31130 


00454 


-03 20 


00 





03141 


ANA 


=0000017000000 MASK OUT JUNK. 


TT 131140 


00455 


-0765 


00 





00025 


LGR 


21 


CONVERT TO OCTAL. 


TT131150 


00456 


0767 


00 





00003 


ALS 


3 


SHIFT AND OR TO COMMENT. 


TT)31160 


00457 


-0763 


00 





00003 


LGL 


3 


. . 


TT)31170 


00460 


-0602 


00 





00522 


ORS 


XFPT+10 


. . 


TT131180 


00461 


-0500 


00 





00000 


CAL 





GET AOORESS OF TRAPPED INSTRUCTION. 


TT)3U90 


00462 


0402 


00 





03126 


SUB 


= 1 


• • 


TT131200 


00463 


-0130 


00 





00000 


XCL 




• • 


TT)31210 


00464 


0074 


00 


4 


01173 


TSX 


OCTA0R.4 


CONVERT TO OCTAL-BCD. 


TTJ31220 


00465 


-0130 


00 





00000 


XCL 




OR TO COMMENT. 


TT131230 


C0466 


-0602 


00 





00517 


ORS 


XFPT+7 


• • 


TT)31240 


00467 


0074 


00 


4 


02407 


TSX 


WOT, 4 


COMMENT. 


TTJ31250 


00470 


00014 


1 


00510 


PZE 


XFPT.1,12 


. . 


TTI31260 


00471 


-0625 


00 





010 26 


STL 


EPMR 


SET TO GIVE ERROR POST MORTEM. 


TT131270 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEM8LY PROGRAM. 
SECTION 3, TRAP RETURNS AND LSTM. 



00472 0020 00 00702 

00473 00000 00000 

00474 002431653162 

00475 314645602551 
C0476 514651336060 
00477 002123236444 

00500 644321634651 

00501 604665255126 

00502 434666336060 

00503 004464436331 

00504 474331255140 

00505 506446633125 

00506 456360466525 

00507 512643466633 

00510 002643462163 

00511 314527604746 

00512 314563606247 

00513 314343604623 

00514 236451512524 

00515 603145604346 

00516 232163314645 

00517 600000000000 

00520 736062473143 

00521 436023462425 

00522 603162600000 

00523 336060606060 



TRA 

SSI PIE 

MOVER BCI 



WACO BCI 



WMOO BCI 



XFPT BCI 



BCI 



BACK 



EXIT TO POST MORTEM SECTION. 



TEMPORARY STORAGE FOR SI. 
3,0DIVISION ERROR. 

4.0ACCUMULATOR OVERFLOW. 



5,0MULTIPL1ER-0U0TIENT OVERFLOW. 



TT131280 
TT)31290 
TTJ31300 
TTI31310 



TT)31320 



TT131330 



9.0FLOATING POINT SPILL OCCURREO IN LOCATION 00000, SPIL TT131340 



3,L CODE IS 00. 



TTI31350 



SPACE 



INTERVAL TIMER RETURN. 



00524 


-0760 


00 





00007 TIMR LTM 




00525 


0634 


00 


4 


01166 


SXA 


IR4,4 


00526 


0074 


00 


4 


01146 


TSX 


SVC0N.4 


00527 


-0500 


00 





00006 


CAL 


6 


00530 


0100 


00 





00361 


TZE 


SEQR 


00531 


06 21 


00 





00610 


STA 


SACR 


00532 


0020 


00 





00541 


TRA 


SLR1 



JUST IN CASE. 

SAVE IR4 FOR POST MORTEM. 

SAVE CONSOLE AND RESET TRAPS. 

PICKUP TRAP LOCATION. 

IF ZERO, MUST BE WILD TRANSFER. 

GO TO ANALYZE. 



TT131360 
TT)31370 
TTI31380 
TTI31390 
TT131400 
TT)31410 
TT)31420 
TTJ31430 
TTI31440 
TT)31450 



SPACE 



00533 


-0760 


00 





00007 


SLR 


LTM 


00534 


06 34 


00 


4 


01166 




SXA 


00535 


0074 


00 


4 


01146 




TSX 


00536 


-0500 


00 





00014 




CAL 


00537 


0100 


00 





00361 




TZE 


00540 


0621 


00 





00610 




STA 


00541 


-0500 


60 





00610 


SLR1 


CAL» 


00542 


-0320 


00 





03152 




ANA 


00543 


0100 


00 





00571 




TZE 


00544 


-0500 


00 





00610 




CAL 


00545 


0402 


00 





03126 




SUB 



TAPE TIMER RETURN. 



STOP-LOOP TRAPPED RETURN. 
SAVE IR4. 
SAVE CONSOLE. 



IR4.4 

SVC0N.4 

12 

SEOR 

SADR 

SAOR 

^0377700000000 MASK IT. 

PSTOP IF HTR OR FOR, CALL IT A STOP. 

SACR 

.1 REDUCE CtlLC) BY 1. 



TT131460 
TTJ31470 
TTI31480 
TT131490 
TT131500 
TTI31510 
TTI31520 
TTI31530 
TTI31540 
TT131550 
TTI31560 
TT 131570 
TT131580 
TT)31590 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
SECTION 3, TRAP RETURNS AND LSTM. 



00546 
00547 
00550 
00551 
00552 
00553 
00554 
00555 

00556 
00557 
00560 
00561 
00562 
00563 
00564 
00565 
00566 
00567 
00570 

00571 
00572 

00573 • 

00574 • 

00575 • 

00576 • 

00577 • 
00600 
00601 
00602 - 
00603 

00604 
00605 
00606 
00607 
00610 
00611 
00612 
00613 
00614 
00615 
00616 
00617 
00620 
00621 
00622 
00623 
00624 
00625 
00626 



0621 00 
-0500 60 
-0320 00 

0774 
-0340 00 
0020 00 
0020 00 
2 00001 

0560 00 

0074 00 

-07 54 00 

-0763 00 

-0602 00 

-0130 00 

-0602 00 

0074 00 

00010 

-0625 00 

0020 00 



0560 00 
0074 00 
-0754 00 
-0763 00 
-0602 00 
-0130 00 
-0602 00 
0074 00 
00006 
-0625 00 
0020 00 



00610 
00610 
03165 
00004 
00610 
00555 
00571 
00552 

00610 
01173 
00000 
00030 
00617 
00000 
00620 
02407 
00611 
01026 
00702 

00610 
01173 
00000 
000 36 
00625 
00000 
00626 
02407 
00621 
01026 
00702 



0220 00 00000 
0224 00 00000 
0240 00 00000 
0420 00 00000 
00000 ooooo 

004751462221 
224325602545 
244325626260 
434646476021 
514664452460 
434623216331 
464560000000 
000033606060 
004751462751 
214460626346 
476021636043 
462321633146 
456000000000 
003360606060 



LOOP 



STA 

CAL* 

ANA 

AXT 

LAS 

TRA 

TRA 

TIX 

LDU 
TSX 
PXD 
LGL 
ORS 
XCL 
ORS 
TSX 
PZE 
STL 
TRA 



PSTOP LDQ 
TSX 

PXD 
LGL 
ORS 
XCL 
ORS 
TSX 
PZE 
STL 
TRA 

PSTOPS DVH 

VDH 

FOH 

HPR 

SADR PZE 

XLOOP BCI 



XPSTOP BCI 



SACR 

SADR GET TRAPPED INSTRUCTION. 

=0777700000000 MASK IT. 

*»« COMPARE WITH TRUE STOPS. 

PST0PS*4, 4 

•♦2 NO. 

PSTOP TRUE STOP. 

•-3,4,1 NO, INDEX. 



SACR 

0CTADR.4 

0,0 

24 

XLCOP+6 

XLCOP+7 
WOT, 4 
XLOOP, 1,8 
EPMR 
BACK 

SACR 

0CTADR.4 

0,0 

30 

XPSTOP+4 

XPST0P*5 
WOT, 4 

XPSTOP, 1,6 
EPMR 
BACK 



CONVERT TO OCTAL BCD. 
SHIFT AND OR TO COMMENT. 

• * 

COMMENT. 

• • 

SET TO GIVE ERROR POST MORTEM. 
EXIT TO POST MORTEM SECTION. 

TRUE STOP, GET ADDRESS OF TRAPPED 
INSTRUCTION AND CONVERT TO OCTAL -BCD. 

• • 

SHIFT AND OR TO COMMENT. 
COMMENT. 

• • 

SET TO GIVE ERROR POST MORTEM. 
EXIT TO POST MORTEM SECTION. 

LIST OF STOPS. 



ADDRESS OF STOP. 
8,0PR0BABLE ENDLESS LCOP AROUND LOCATION OOOOO. 



6,0PROGRAM STOP AT LOCATION OOOOO. 



TT)31600 

TT)31610 

TT131620 

TT 131630 

TT131640 

TTJ31650 

TT131660 

TT)31670 

TTI31680 

TTI31690 

TT131700 

TTI31710 

TTI31720 

TT131730 

TT131740 

TTI31750 

TT)31760 

TT)31770 

TTJ31780 

TTI31790 

TT)31800 

TTJ31810 

TT131820 

TTJ31830 

TT131840 

TT131850 

TTI31860 

TT)31870 

TTJ31880 

TTI31890 

TT 131 900 

TTI31910 

TT»31920 

TTJ31930 

TT)31940 

TTI31950 

TTI31960 

TT)31970 

TT)31980 



TT131990 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
SECTION 3, TRAP RETURNS AND LSTM. 



00627 

00630 

00631 

00632 

006 33 

006 34 

00635 

00636 

006 37 

00640 

00641 

00642 

00643 

00644 

00645 

00646 

00647 

00650 

00651 
00652 
00653 
00654 
00655 
00656 
00657 
00660 
00661 
00662 



00663 
00664 
00665 
00666 
00667 
00670 
00671 
00672 
00673 
00674 
00675 
00676 



-0760 00 

0634 00 

0074 00 

-07 60 00 

0534 00 

1 77777 

0754 00 

-0130 00 

0074 00 

-0754 00 

-0763 00 

-0602 00 

-0130 00 

-0602 00 

0074 00 

00012 

-0625 00 

0020 00 



00007 
01166 
01146 
00010 
40000 
00635 
00000 
00000 
01173 

ooooo 

00022 
00661 
OOOOO 
00662 
02407 
00651 
01026 
00702 



002163632544 
476360634660 
646225603143 
432527214360 
316146603145 
626351642363 
314645603145 
604346232163 
314645600000 
000000336060 



-0600 00 

-0760 00 
0560 00 

-0600 00 
0560 00 

-0600 00 
0766 00 
0540 00 
0560 00 

-0600 00 
0560 00 
0020 00 



00677 
00010 
40001 
00700 
00701 
40001 
01204 
00261 
00700 
40001 
00677 
00001 



SPACE 



IOTMR LTM 
SXA 
TSX 
LSNM 
LXA 
TXI 
PXA 
XCL 
TSX 
ZAC 
LGL 
ORS 
XCL 
ORS 
TSX 
PZE 
STL 
TRA 

XIOBO BCI 



00677 OOOOO OOOOO 
C0700 OOOOO OOOOO 
00701 0021 00 00673 



BCI 



SPACE 



LSTM STQ 
LSNM 
LDQ 
STQ 
LDQ 
STQ 
WTDA 
RCHA 

RLSTM LDQ 
STQ 
LDQ 
TRA 

SLSTM PZE 

PZE 

TLSTM TTR 



SELECT OR COPY TRAP RETURN. 



IR4.4 
SVC0N.4 

16384,4 

•♦1,4,-1 

0,4 

0CTADR.4 

18 
XI0BD*8 

XICB0*9 
WOT, 4 

XIOBD, 1,10 
EPMR 
BACK 



JUST IN CASE. 
SAVE IR4. 
SAVE THE CONSOLE. 

JUST IN CASE. „,..„.. 

GET (AOCRESS+1) OF TRAPPEO INSTRUCTION. 
SET TO ACORESS OF TRAPPED INSTRUCTION. 
TO AC. 
TO MQ. 

CONVERT TO OCTAL-BCD. 
NSERT IN COMMENT. 



COMMENT. 

SET TO GIVE ERROR POST MORTEM. 
EXIT TO POST MORTEM SECTION. 



9.0ATTEMPT TO USE ILLEGAL I/O INSTRUCTION IN LOCATION 



TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
00 TT 



1,000. 



ROUTINE TO LEAVE SELECT TRAPPING MODE. 



SLSTM 

16385 

SLSTM+1 

TLSTM 

16385 

4 

QUIT 

SLSTM+1 

16385 

SLSTM 

1,« 



RLSTM 



SAVE MQ. 
JUST IN CASE. 
SAVE TRAP RETURN. 

SET TRAP. 

SELECT INSTRUCTION. 

NIL COMMAND. 

RESTORE ORIGINAL TRAP. 

RESTORE ORIGINAL MQ. 
RETURN. 

MQ STORAGE. 

TRAP RETURN STORAGE. 

SELECT TRAP RETURN. 



132000 

)32010 

132020 

132030 

132040 

132050 

132060 

132070 

132080 

132090 

132100 

132110 

132120 

132130 

132140 

132 150 

132160 

132170 

132180 

132190 

132200 

132210 

132220 



TT132230 



TT132240 
TT132250 
TT132260 
TT 132270 
TT132280 
TT132290 
TT132300 
TT132310 
TT132320 
TT132330 
TT132340 
TT132350 
TT132 360 
TT132370 
TT132380 
TT132390 
TT132400 
TT132410 
TT132420 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
SECTION 4, WIND UP THIS RUN. 



TTL 



SECTION 4, HIND UP THIS RUN. 



00702 


-07 60 





00007 


BACK LTM 




00703 


0600 00 





00005 


STZ 


5 


00704 


-00 61 00 





00706 


TCNT 


• ♦2 


00705 


-0540 00 





00261 


RCHT 


QUIT 


00706 


0074 00 


4 


00663 


TSX 


LSTM.4 


00707 


-0520 00 





00235 


NZT 


TIT 


00710 


0772 00 





02223 


RENT 




00711 


0520 00 





01026 


ZET 


EPMR 


00712 


0020 00 





01401 


TRA 


PMR 


00713 


0020 00 





01403 


TRA 


PMR+2 
SECTION TO G 


00714 


0074 00 


4 


02407 


FINIS TSX 


WOT, 4 


00715 


00002 


1 


01027 


PZE 


ENCRN, 1,2 


00716 


0760 00 





00004 


ENK 




00717 


-0130 00 





00000 


XCL 




00720 


0044 00 





00000 


PA I 




00721 


-0056 00 


040000 


LNT 


04C000 


00722 


0020 00 





00765 


TRA 


OOOR 


C0723 


0056 00 


< 


D00002 


STOP RNT 


2 


00724 


0020 00 





00732 


TRA 


file 


00725 


0074 00 


4 


02520 


TSX 


PRINT, 4 


00726 


-0 00014 





01031 


MZE 


XSTOP.0,12 


00727 


0760 00 





00004 


ENK 




00730 


-0130 00 





00000 


XCL 




00731 


0044 00 





00000 


PA I 




00732 


0056 00 


000004 


FILE RNT 


4 


00733 


0020 00 





00742 


TRA 


CLOSE 


00734 


0770 00 





01203 


WEFA 


3 


00735 


0074 00 


4 


02520 


TSX 


PRINT, 4 


C0736 


-0 00014 





01045 


MZE 


XFILE,0,12 


00737 


0760 00 





00004 


ENK 




00740 


-0130 00 





00000 


XCL 




00741 


0044 00 





00000 


PA I 




00742 


0056 00 


oooooi 


CLOSE RNT 


1 


00743 


0020 00 





00765 


TRA 


OOOR 


00744 


0774 00 


1 


00012 


AXT 


10,1 


00745 


0074 00 


4 


02407 


TSX 


WOT, 4 


00746 


00003 





01077 


PZE 


ENCTP.0,3 


00747 


0074 00 


4 


02407 


TSX 


WOT, 4 


00750 


00001 





03147 


PZE 


«H4 ,0,1 


00751 


0770 00 





01203 


WEFA 


3 


00752 


2 00001 


1 


00745 


TIX 


•-5,1,1 


00753 


0074 00 


4 


024'0 7 


TSX 


WOT, 4 


00754 


00011 





01102 


PZE 


RENDTP.0,9 


00755 


0074 00 


4 


02407 


TSX 


WOT, 4 


00756 


00001 





03147 


PZE 


»H4 ,0,1 


00757 


0774 00 


4 


00012 


AXT 


10, 4 


00760 


0770 00 





01203 


WEFA 


3 



JUST IN CASE. 

RESET INTERVAL TIMER. 

IF TAPE TIMER IN USE, 

RESET TAPE TIMER. 

RESET TRAP, JUST IN CASE. 

IF TAPE TIMER USEO, 

REWINO TIMER TAPE. 

TEST FOR ERROR PCST MORTEM. 

YES, EXIT. 

POST MORTEM IN ANY CASE. 



END OF RUN COMMENT. 
CHECK CONSOLE KEYS. 

* • 

IF KEY 3 IS UP, 

DONT CHECK KEYS AT ALL. 

CHECK FOR STOP INSTRUCTION. 

NO, CHECK FOR REQUEST FOR EOF ON A3. 

YES, COMMENT. 

GET THE KEYS. 
PLACE IN AC, 
PLACE IN SI. 

CHECK FOR EOF ON A3 REQUEST. 

NO, CHECK FOR CLOSE TAPE INSTRUCTION. 

YES, WRITE EOF ON A3. 

COMMENT. 

GET THE KEYS. 
PLACE IN AC, 
PLACE IN SI. 

CHECK FOR CLOSE OUTPUT TAPE INSTRUCTION. 

NO, GO TO OOOR. 

SET TO COMMENT 10 TIMES. 

YES, WRITE (ENO OF TAPE. I AND 

SKIP TO CHANNEL FOUR. 

THEN AN EOF HARK. 

• * 

COMMENT, ITS REALLY THE END. 
SKIP TO CHANNEL FOUR. 
TEN EOF'S ON A3. 



TT)40000 
TTI40010 
TT140020 
TTJ40030 
TT140040 
TT)40050 
TT140060 
TT)40070 
TT140080 
TT 140090 
TTI40100 
TTI40110 
TTI40120 
TT140130 
TT)40140 
TTJ40150 
TT)40160 
TTI40170 
TT)40180 
TT)40190 
TTK0200 
TT140210 
TT140220 
TTI40230 
TT140240 
TTJ40250 
TT140260 
TTI40270 
TTI40280 
TT140290 
TTI40300 
TTI40310 
TT140 320 
TTI40330 
TT)40340 
TTK0350 
TTK0 360 
TT)40370 
TT140380 
TTI40390 
TTI40 400 
TT)40410 
TT140420 
TTJ40430 
TT 140440 
TT) 40450 
TT 140460 
TT)40470 
TTJ40480 
TT)40490 
TT)40500 
TTI40510 
TT)40520 
TT)40530 
TT)40540 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
SECTION 4, HIND UP THIS RUN. 



00761 2 00001 4 00760 

00762 -0772 00 01203 

00763 0074 00 4 02520 

00764 -0 00016 01061 



00765 
00766 
00767 
00770 
00771 
00772 
00773 
00774 
00775 
00776 
00777 
C1000 
01001 

01002 
01003 
01004 
01005 
01006 
01007 
01010 
01011 
01012 
01013 
01014 
01015 
01016 
01017 
01020 

01021 
C1022 
01023 



060C 00 

0564 00 
-0760 00 

0074 00 
-0760 00 

0760 00 
-0130 00 

0044 00 
-0056 00 

0020 00 

0074 00 
-0 00013 

0020 00 

0022 00 
0774 00 
0772 00 
0762 00 
0540 00 

-0054 00 
0020 00 
0762 00 
0762 00 
0060 00 
0022 00 

-0500 00 
0630 00 
0020 00 
2 00001 



03125 
03125 
00007 
00663 
00010 
00004 
00000 
00000 
C00001 
01002 
4 02520 
01113 
00765 

01003 

1 00005 
01201 
01221 
01024 

000002 
01013 
01221 
01221 
01013 
01020 
01015 
00042 
00001 
01004 



0074 00 4 02520 

-0 00017 01126 

0020 00 00765 



DOOR 



01024 -0 0000 3 00000 

01025 1 00000 00000 

01026 00000 00000 



TIX 

RUNA 

TSX 

mze 

STZ 

ENB 

LTM 

TSX 

LSNM 

ENK 

XCL 

PA I 

LNT 

TRA 

TSX 

MZE 

TRA 



D00R1 TRCA 
AXT 
REMA 
RTBA 
RCHA 
LFT 
TRA 
RTBA 
RTBA 
TCOA 
TRCA 
CAL 
STP 
TRA 
TIX 

TSX 
MZE 
TRA 

LOAO IOCP 

TCH 
EPMR PZE 



»-lt4,l 
3 

PRINT, 4 
XCLOSEtO, 14 

= 
=0 

LSTM.4 



1 

D00R1 

PRINT, 4 

SEXIT.0,11 

OOOR 

• ♦1 
5,1 

1 
1 

LOAD 
2 

• + 3 
1 

I 
• 

• + 4 
• 
34 

1 
DOORl+2,1,1 

PRINT, 4 
XRCAl.0,15 

DCOR 

0,0,3 




THEN RUN OUTPUT TAPE. 
COMMENT. 



MAKE A ZERO LOCATION. 
RESET THE TRAPS. 
JUST IN CASE. 



GET CONSOLE KEYS. 

PLACE IN AC. 

PLACE IN INDICATORS- 

CHECK IF OPERATOR WANTS TO STOP. 

NO. 

YES, COMMENT. 

GO BACK TO CHECK KEYS. 

TURN OFF RC LIGHT. 

SET UP FOR 5 THIES. 

REWIND THE SYSTEMS TAPE. 

SELECT. 

LOAD SEQUENCE OF CHANNEL COMMANDS. 

MISTART OR EXITM. 

MISTART. 

EXITM, SKIP TWO RECORDS. 

WAIT FOR DSCA. 

EXIT FOR READ ERROR. 

SET PREFIX OF 34 TO MZE. 

THEN RETURN TO MONITOR. 

READING ERROR, INDEX ANO TRY AGAIN. 

FIVE REDUNDANCY FAILURES, COMMENT. 

GO TRY FIVE MORE TIMES. 

CHANNEL COMMANDS. 

TEST CELL FOR ERROR POST MORTEM. 



TTI40550 
TT140560 
TT140570 
TT)40580 
TT140590 
TT 140600 
TTJ40610 
TT140620 
TTJ40630 
TT140 640 
TT 140650 
TTJ40660 
TT140670 
TTI40680 
TTI40690 
TT140700 
TT140710 
TTK0720 
TT140730 
TTI40740 
TTI40750 
TT140760 
TT140770 
TTI40780 
TTI40790 
TT)40 800 
TTI40810 
TTI40 820 
TTI40830 
TT)40 840 
TT140850 
TT)40860 
TT140S70 
TTI40880 
TT140890 
TT140900 
TT140910 
TT140920 
TT140930 
TTJ40 940 
TT)40950 
TT140960 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
SECTION 4, WIND UP THIS RUN. 









EJECT 
TITLE 


01027 


002545246046 


ENORN 


BCI 


C1031 


004225706003 


XSTOP 


BCI 


01042 


626321516360 




BCI 


01045 


004225706003 


XFILE 


BCI 


01056 


516360634660 




BCI 


01061 


004225706003 


XCLOSE 


BCI 


01072 


604751256262 




BCI 


01077 


012545246046 


ENDTP 


BCI 


01102 


006330255125 


RENDTP 


BCI 


01113 


004225706001 


SEXIT 


BCI 


01124 


602346456331 




BCI 


01126 


002631652560 


XRCA1 


BCI 


01137 


512562626062 




BCI 
DETAIL 



SUPPRESS GENERATED OCTAL LISTING. 

COMMENTS. 
2.0END OF RUN. 

9.CKEY 34 DOWN, STOP COMMAND WHILE CHECKING KEYS, PRESS 
3, START TO CONTINUE. 

9.0KEY 33 DOWN, AN EOF HAS BEEN WRITTEN ON A3, PRESS STA 
3,RT TO CONTINUE. 

9.0KEY 35 DOWN, TAPE A3 HAS BEEN CLOSED, CHANGE TAPE AND 
5, PRESS START TO CONTINUE. 
3.1END OF TAPE. 

9.CTHERE REALLY ISN'T ANY MORE ON THIS TAPE - HONEST. 
9.0KEY 17 DOWN, STOP COMMAND BEFORE EXIT, PRESS START TO 
2, CONTINUE. 

9.0FIVE CONSECUTIVE REDUNDANCY FAILURES IN READING Al. P 
6.RESS START FOR FIVE MORE TRIES. 

RETURN TO NORMAL LISTING MODE. 



TTJ40970 
TT)40980 
TTI40990 
TTI41000 
TTI41010 
TT141020 
TTI41030 
TTI41040 
TTJ41050 
TT141060 
TT)41070 
TT141080 
TT)41090 
TT141100 
TTI41110 
TTJ41120 
TTJ4U30 
TT141140 
TTI41150 
TTI41160 
TT14U70 
TT141180 
TTJ4U90 
TT141200 
TTJ41210 
TT)41220 
TT)41230 
TTK1240 
TTJ41250 
TTI41260 
TT)41270 
TU41280 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 5. SVCON, PMR, OCT, OCTADR, AND TABBLK. 



01145 0634 00 4 01166 



SX4 



TTL SECTION 5, SVCON, PMR, OCT, OCTADR, AND TABBLK. 

SXA IR4.4 ENTRY TO SAVE IR4 FOR PMR USE. 



TT)50000 
TT)50010 
TT) 50020 



SPACE 



01146 


0600 


00 





00005 


SVCON 


STZ 


5 


01147 


-0061 


00 





01151 




TCNT 


• + 2 


01150 


-0540 


00 





00261 




RCHT 


QUIT 


01151 


0634 


00 


4 


01153 




SXA 


•+2,4 


01152 


0074 


00 


4 


00663 




TSX 


LSTM.4 


01153 


0774 


00 


4 


00000 




AXT 


••,4 


01154 


06 34 


00 


1 


01164 




SXA 


IR1.1 


01155 


0634 


00 


2 


01165 




SXA 


IR2.2 


01156 


-06 00 


00 





01171 




STQ 


MQ 


01157 


0602 


00 





01170 




SLM 


AC 


01160 


0765 


00 





00045 




LRS 


37 


01161 


-0600 


00 





01172 




STQ 


SVPQ 


01162 


0604 


00 





01167 




ST I 


SIND 


01163 


0020 


00 


4 


00001 




TRA 


1,4 


01164 


00000 





00000 


IR1 


PZE 




01165 


00000 





00000 


IR2 


PZE 




01166 


00000 





00000 


IR4 


PZE 




01167 


00000 





00000 


SIND 


PZE 




01170 


00000 





ooooo 


AC 


PZE 




01171 


0000 





00000 


MO 


PZE 




01172 


00000 





ooooo 


SVPO 


PZE 





CONSOLE LIGHTS SAVING ROUTINE. 



RESET INTERVAL TIMER. 

IF TAPE TIMER IN USE, 

RESET TAPE TIMER. 

SAVE IR4. 

RESET TRAP. 

RESTORE IR4. 

SAVE IR1. 

SAVE IR2. 

SAVE THE MO. 

SAVE THE AC. 

GET S,Q,P BITS. 

SAVE. 

SAVE INDICATORS. 

RETURN. 



CONSOLE STORAGE. 



TT) 50030 
TT) 50040 
TTJ50050 
TT 150060 
TT150070 
TT)50080 
TTI50090 
TT)50100 
TTI50110 
TT 150120 
TT)50130 
TT)50140 
TTI50150 
TT)50160 
TTI50170 
TTI50180 
TT150190 
TT) 50200 
TTI50210 
TT150220 
TTJ50230 
TT150240 
TT150250 
TTI50260 
T T ) 50 2 70 



SPACE 



01173 


-0763 00 





00025 


OCTADR LGL 


21 


01174 


-0754 00 





OOOOO 


PXD 


0,0 


01175 


0634 00 


4 


01205 


SXA 


• ♦8,4 


01176 


0774 00 


4 


00005 


AXT 


5,4 


01177 


0767 00 





00003 


ALS 


3 


01200 


-0763 00 





00003 


LGL 


3 


01201 


2 0000 1 


4 


01177 


TU 


•-2,4,1 


01202 


-0130 00 





OOOOO 


XCL 




01203 


-0154 05 





01207 


CRQ 


TABBLK, 0,5 


01204 


-0773 00 





00006 


ROL 


6 


01205 


0774 00 


4 


OOOOO 


AXT 


...4 


01206 


0020 00 


4 


00001 


TRA 


1,4 



ADDRESS TO OCTAL CONVERTER, DELETE LEADING ZEROES. 



WORD IN MQ. 

CLEAR AC. 

SAVE IR4. 

SET UP LOOP. 

INSERT 000 BETWEEN GROUPS OF THREE BITS. 



ANSWER IN MO. 

DELETE LEADING ZEROES. 

LAST ZERO. 

RESTORE IR4. 

RETURN. 



TT150280 
TT150290 
TT150 300 
TT150310 
TT)50320 
TTI50330 
TH50340 
TT150350 
TTI50 360 
TT)50370 
TTI50380 
TT)50390 
TT)50400 
TT)50410 
TT150420 



01207 600000001207 

01210 010000001221 

01211 020000001221 



SPACE 



TABBLK VFO 
VFD 

VFO 



TABLE FOR DELETING LEADING ZEROES. 

06/60, 15/0, 15/TABBLK 
H6/1, 15/0, 15/ TABBLK* 10 
H6/2, 15/0, 15/TABBLK+1C 



TT150430 
TT)50440 
TTI50450 
TTI50460 
TT)50470 
TT150480 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 5, SVCON, PMR, OCT, OCTADR, AND TABBLK. 



01212 
01213 
0121* 
01215 
01216 
01217 
01220 
01221 
01222 
01223 
01224 
01225 
01226 
01227 
01230 
01231 
01232 



030000001221 
040000001221 
050000001221 
060000001221 
070000001221 
100000001221 
110000001221 
000000001221 
010000001221 
020000001221 
030000001221 
040000001221 
050000001221 
060000001221 
070000001221 
100000001221 
110000001221 



VFD 


H6/3, 15/0, 


VFO 


H6/4.15/0, 


VFD 


H6/5.15/0, 


VFD 


H6/6.15/0, 


VFD 


H6/7.15/0, 


VFD 


H6/8.15/0, 


VFD 


H6/9, 15/0, 


VFD 


H6/0.15/0, 


VFO 


H6/1.15/0, 


VFD 


H6/2.15/0, 


VFD 


H6/3, 15/0, 


VFD 


H6/4.15/0, 


VFD 


H6/5.15/0, 


VFD 


H6/6, 15/0, 


VFD 


H6/7.15/0, 


VFD 


H6/8.15/0, 


VFD 


H6/9.15/0, 



,15/TABBLK+lC 
,15/TA8BLK+10 
,15/tABBLK+IO 
,15/TABBLK+10 
,15/TABBLK+10 
,15/TABBLK+IO 
,15/TABBLK+10 
,15/TABBLK+lG 
,15/TABBLK+lC 
,15/TABBLK+IO 
,15/TABBLK+lC 
,15/TABBLK+10 
,15/TABBLK+10 
,15/TABBLK+lC 
,15/TABBLK+10 
,15/TABBLK+lC 
,15/TABBLK+10 



TT150490 
TT)50500 
TT)50510 
TT)50520 
TT)50530 
TT150540 
TTI50550 
TT)50560 
TT)50570 
TT150580 
TT)50590 
TT) 50600 
TT)50610 
TT)50 620 
TTI50630 
TT)50640 
TTI50650 



01233 
01234 
01235 
01236 
01237 
01240 
01241 
01242 
01243 
01244 
01245 
01246 
01247 
01250 
01251 
C1252 
01253 
01254 
01255 
01256 
01257 



0634 00 
0774 00 
0634 00 

-0130 00 

-0100 00 
0560 00 
0020 00 
0737 00 
0754 00 

-0765 00 
0774 00 
0767 00 

-0763 00 
0020 00 
0100 00 

-0501 00 

-0625 00 
2 00001 

-0130 00 
0774 00 
0020 00 



01256 
01251 
01250 
00000 
01242 
03157 
01256 
00000 
00000 
00017 
00005 
00003 
00003 
01251 
01254 
03157 
01250 
01246 



00000 



00000 
00001 



SPACE 



CCMADR SXA 
AXT 
SXA 
XCL 
TNZ 
LDQ 
TRA 
PAC 
PXA 
LGR 
AXT 
ALS 
LGL 

COMSH TRA 
TZE 
OR A 
STL 
TIX 
XCL 

COMRT AXT 



COMPLEMENT ADDRESS TO OCTAL-BCI CONVERTER. 



COMRT, 4 

COMSW+1,4 

C0MSM.4 



TRA 



• + 3 

«H 

COMRT 

0,4 

0,4 

15 

5,4 

3 

3 

• + 1 

• + 3 
*H 

COMSH 
•-6,4,1 

»»,4 
1,4 



-0 



SAVE IR4. 
RESET SWITCH. 



F ZERO, SET. 
ND EXIT. 



SWITCH AFTER FIRST NON-ZERO DIGIT. 
SET SWITCH. 



RESTORE IR4. 
RETURN. 



TTI50660 
TTI50670 
TT)50680 
TT)50690 
TT 150700 
TT)50710 
TT150720 
TTJ50730 
TT 150 740 
TT150750 
TTI50760 
TTI50770 
TTI50780 
TTI50790 
TT150800 
TTJ53810 
TTJ50820 
TT)50830 
TTJ50 840 
TTJ50850 
TT) 50860 
TTI50870 
TTI50880 
TTI50890 



SPACE 



01260 


0634 00 


4 


01276 


OCT 


SXA 


•+14,4 


01261 


0774 00 


4 


00006 




AXT 


6,4 


01262 


-0754 00 





00000 




PXO 


0,0 


01263 


0767 00 





00003 




ALS 


3 


01264 


-0763 00 





00003 




LGL 


3 


01265 


2 00001 


4 


01263 




TIX 


•-2,4,1 


01266 


0602 00 





01300 




SLW 


• ♦10 



FULL WORD BINARY TO OCTAL-BCI CONVERTER. 



WORO IN MQ. 
CONVERT LEFT HALF. 



TT) 50 900 
TTI50910 
TT) 50920 
TT150930 
TT 150940 
TT150950 
TT)50960 
TTI50970 
TT)50980 
TTJ50990 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 5, SVCON, PMR, OCT, OCTADR, AND TABBLK. 

CONVERT RIGHT HALF. 



LOAD COMPLETED WORD. 

RESTORE IR4. 
RETURN TO CALLER. 

TEMPORARY STORAGE. 
EXTERNAL NAME FOR OCT. 



01267 


0774 00 


4 


00006 


AXT 


6,4 


01270 


-07 54 00 





00000 


PXO 


0,0 


01271 


0767 00 





00003 


ALS 


3 


01272 


-0763 00 





00003 


LGL 


3 


01273 


2 00001 


4 


01271 


TIX 


•-2,4,1 


01274 


-0130 00 





00000 


XCL 




C1275 


-0500 00 





01300 


CAL 


• + 3 


01276 


0774 00 


4 


00000 


AXT 


•*,4 


01277 


0020 00 


4 


00001 


TRA 


I, A 


01300 


00000 





00000 


PZE 










01260 OCT) SYN 


OCT 



TT)51000 
TT151010 
TT)51020 
TTI51030 
TTI51040 
TT151050 
TT151060 
TTI51070 
TTI51080 
TT151090 
TTI51100 
TTI51110 



SPACE 



TABLE FOR DELETING ILLEGAL BCI CHARACTERS. 



01301 


000000001301 


BCOTAB VFD 


H6/0, 


15/0, 15/BCDTAB 


00 


C1302 


010000001301 


VFD 


H6/1, 


15/0,15/BCDTAB 


01 


01303 


020000001301 


VFD 


H6/2, 


15/0, 15/BCDTAB 


02 


01304 


030000001301 


VFD 


H6/3, 


15/0,15/BCDTAB 


03 


01305 


040000001301 


VFD 


H6/4, 


15/0,15/BCDTAB 


04 


01306 


050C00CC1301 


VFD 


H6/5, 


15/0,15/BCDTAB 


05 


01307 


C600000C1301 


VFO 


H6/6, 


15/0,15/BCDTAB 


06 


01310 


070000001301 


VFO 


H6/7, 


15/0,15/BCDTAB 


07 


01311 


1000000C1301 


VFD 


H6/8, 


15/0,15/BCDTAB 


10 


01312 


110000001301 


VFO 


H6/9, 


15/0,15/BCDTAB 


11 


01313 


540000001301 


VFD 


H6/», 


15/0,15/BCDTAB 


12 


01314 


130000001301 


VFO 


H6/ = , 


15/0,15/BCOTAB 


13 


01315 


140000001301 


VFD 


H6/«, 


15/0,15/BCDTAB 


14 


01316 


540000001301 


VFO 


H6/», 


15/0,15/BCDTAB 


15 


C1317 


540000001301 


VFD 


H6/», 


15/0,15/BCDTAB 


16 


01320 


540000001301 


VFD 


H6/», 


15/0,15/BCDTAB 


17 


01321 


200000001301 


VFD 


H6/ + , 


15/0,15/BCDTAB 


20 


C1322 


210000001301 


VFD 


H6/A, 


15/0,15/BCDTAB 


21 


01323 


220000001301 


VFD 


H6/B, 


15/0,15/BCDTAB 


22 


01324 


230000001301 


VFO 


H6/C, 


15/0,15/BCDTAB 


23 


01325 


240000001301 


VFO 


H6/D, 


15/0,15/BCDTAB 


24 


01326 


250000001301 


VFD 


H6/E, 


15/0,15/BCOTAB 


25 


01327 


260C00 001301 


VFD 


H6/F, 


15/0,15/BCDTAB 


26 


01330 


270000001301 


VFD 


H6/G, 


15/0,15/BCDTAB 


27 


01331 


300000001301 


VFD 


H6/H, 


15/0,15/BCDTAB 


30 


01332 


310000001301 


VFD 


H6/I, 


15/0,15/BCOTAB 


31 


01333 


540000001301 


VFD 


H6/», 


15/0,15/BCDTAB 


32 


01334 


330000001301 


VFD 


H6/.. 


15/0,15/BCDTAB 


33 


01335 


340000001301 


VFD 


H6/>, 


15/0,15/BCDTAB 


34 


01336 


540000001301 


VFD 


H6/«, 


15/0,15/BCDTAB 


35 


01337 


540000 001301 


VFD 


H6/», 


15/0,15/BCDTAB 


36 


01340 


540000001301 


VFD 


H6/«, 


15/0,15/BCDTAB 


37 


01341 


400000 001301 


VFD 


H6/-, 


15/0,15/BCDTAB 


40 


01342 


410000001301 


VFD 


H6/J, 


15/0,15/BCOTAB 


41 


01343 


420000001301 


VFD 


H6/K, 


15/0,15/BCDTAB 


42 


01344 


430000001301 


VFD 


H6/L, 


15/0,15/BCDTAB 


43 


01345 


440000001301 


VFD 


H6/M, 


15/0,15/BCDTAB 


44 


01346 


450000001301 


VFD 


H6/N, 


15/0,15/BCDTAB 


45 



TTI51120 
TT)5U30 
TT)5U40 
TTI51150 
TT)5H60 
TT)51170 
TT)51180 
TT)51190 
TTI51200 
TTI51210 
TTI51220 
TT)51230 
TT151240 
TTI51250 
TTI51260 
TTI51270 
TT)51280 
TT151290 
TT151300 
TT151310 
TT)51320 
TT)51330 
TT)51340 
TT151350 
TTI51360 
TT)51370 
TT)51380 
TT )51390 
TTI51400 
TTJ51410 
TT151420 
TT151430 
TT)51440 
TT151450 
TTJ51460 
TTI51470 
TTI51480 
TT151490 
TT)51500 
TT151510 
TTI51520 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 5, SVCON, PMR, OCT, OCTAOR, AND TABBLK. 



01347 

01350 

01351 

01352 

01353 

01354 

01355 

01356 

01357 

01360 

01361 

01362 

01363 

01364 

01365 

01366 

01367 

01370 

01371 

01372 

01373 

01374 

01375 

01376 

01377 

01400 



460000001301 

470000001301 

500000001301 

510000001301 

540000001301 

530000001301 

540000001301 

540000001301 

540000001301 

540000001301 

600000001301 

610000001301 

620000001301 

630000001301 

640000001301 

650000001301 

660000001301 

670000001301 

700000001301 

710000001301 

540000001301 

730000001301 

740000001301 

540000 001301 

540000 001301 

540000001301 



VFO H6/0,15/0,15/BCDTAB 46 

VFD H6/P,15/0,15/BC0TAB * 47 

VFO H6/0,15/0,15/BC0TAB 50 

VFO H6/R,15/0,15/BC0TAB 51 

VFD H6/», 15/0, 15/BCDTAB 52 

VFD H6/», 15/0, 15/BCDTAB 53 

VFD H6/», 15/0, 15/BCDTAB 54 

VFD H6/», 15/0, 15/BCDTAB 55 

VFO H6/«,15/0,15/BC0TAB 56 

VFD H6/», 15/0, 15/BCDTAB 57 

VFD 06/60, 15/0, 15/BCDTAB 60 

VFD H6//, 15/0, 15/BCDTAB 61 

VFD H6/S, 15/0, 15/BCDTAB 62 

VFO H6/T, 15/0, 15/BCDTAB 63 

VFD H6/U, 15/0, 15/BCDTAB 64 

VFO H6/V, 15/0, 15/BCDTAB 65 

VFD H6/W, 15/0, 15/BCDTAB 66 

VFD H6/X, 15/0, 15/BCDTAB 67 

VFD H6/Y, 15/0, 15/BCDTAB 70 

VFD H6/Z, 15/0, 15/BCDTAB 71 

VFO H6/», 15/0, 15/BCDTAB 72 

VFD 06/73, 15/0, 15/BCDTAB 73 

VFD H6/(, 15/0, 15/BCDTAB 74 

VFD H6/», 15/0, 15/BCDTAB 75 

VFD H6/«,15/0,15/BC0TAB 76 

VFO H6/», 15/0, 15/BCDTAB 77 



NO BLANKS ALLOWED IN VFD. 



NO COMMAS ALLOWED IN VFD. 



TT151530 

TTI51540 

TT151550 

TTI51560 

TT)51570 

TT)51580 

TT151590 

TT>51600 

TT151610 

TT151620 

TT151630 

TT)51640 

TT)51650 

TTI51660 

TT)51670 

TT)51680 

TT)51690 

TTJ51700 

TT)51710 

TT151720 

TT)51730 

TTI51740 

TTJ51750 

TTI51760 

TT151770 

TT)51780 



01401 


0074 


00 


4 


02407 


01402 


0000 7 





01474 


01403 


0760 


00 





00141 


01404 


0760 


00 





00142 


01405 


0760 


00 





00143 


C1406 


0760 


00 





00144 


01407 


0074 


00 


4 


00003 


01410 


00 74 


00 


4 


00004 


01411 


0074 


00 


4 


01523 


01412 


0774 


00 


2 


00036 


01413 


-0500 


00 


2 


03067 


01414 


0621 


00 





01445 


014 15 


0402 


00 


2 


030 70 


01416 


0767 


00 





00022 


01417 


06 22 


00 





01445 


01420 


0560 


00 


2 


03031 


01421 


-07 54 


00 





00000 


01422 


-0763 


00 





00022 


01423 


-0501 


00 





03154 


01424 


0602 


00 





01505 


01425 


-0130 


00 





00000 


C1426 


-0501 


00 





03137 


01427 


0602 


00 





01506 



PMR 



SLPM 



SPACE 



TSX 
PZE 
SLN 
SLN 
SLN 
SLN 
TSX 
TSX 
TSX 

AXT 
CAL 
ST A 
SUB 
ALS 
STD 
LDO 
PXD 
LGL 
OR A 
SLW 
XCL 
OR A 
SLW 



POST MORTEM SECTION. 



WOT, 4 

PROER.0,7 

1 

2 

3 

4 

$PPR0G,4 

SPCT1.4 

DC ON, 4 



COMMENT ERROR IN OBJECT PROGRAM. 
SENSE LIGHTS ON MEANS POST MORTEM. 



DUMP SYMBOLIC PROGRAM. 
DUMP COLLATION TAPE. 
GO TO PRINT CONSOLE. 



NSYM.2 SET UP SYMBOL TABLE SEARCH. 

0RIGIN+NSYM.2 GET NEXT ORIGIN. 
C0D1 PLACE IN CALLING SEQUENCE. 

0RIGIN+NSYM-H.2 COUNT IN ADDRESS. 



18 

C0C1 

NAME*NSYM,2 

0,C 

18 

»HOF 000 

PMH+2 

"HOOO FO 
PMh*3 



PLACE IN DECREMENT. 
PLACE IN CALLING SEQUENCE. 
GET THE NAME OF THIS PROGRAM. 
SHIFT AND OR TO COMMENT. 



TT)51790 

TT)51800 

TT)51810 

TT)51820 

TT)51830 

TT)51840 

TTJ51850 

TT)51860 

TT151870 

TT)51880 

TT)51890 

TT 151900 

TT)51910 

TT)51920 

TT)51930 

TT151940 

TT151950 

TT151960 

TT)51970 

TT151980 

TT151990 

TT152000 

TTI52010 

TT152020 

TTI520 30 

TT 152040 

TT 152050 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 5, SVCON, PMR, OCT, OCTADR, AND TABBLK. 



01430 
01431 
01432 
01433 
01434 
01435 
01436 
01437 
01440 
01441 
01442 
01443 
01444 
01445 
01446 
01447 

01450 
01451 
01452 
01453 
01454 
01455 
01456 
01457 
01460 
01461 
01462 
01463 
01464 
01465 
01466 
01467 
01470 
01471 
01472 
01473 

01474 
01475 
01476 
01477 
01500 
01501 
01502 
01503 
01504 
01505 
01506 
01507 
01510 
01511 
01512 
01513 
01514 



0560 00 
0500 00 
0402 00 
0120 00 
0560 00 
0500 00 
0020 00 
0400 00 
0601 00 
-0600 00 
0074 00 
00005 
0074 00 

00000 

1 77777 
3 00000 

0560 00 
0500 00 
0402 00 
0120 00 
0560 00 
0500 00 
0020 00 
0400 00 
0601 00 

-0600 00 
0074 00 
00007 

-0500 00 
0621 00 
0074 00 
00400 
0074 00 
00004 
0760 00 
0020 00 



03142 
02022 
03131 
01437 
03145 
03135 
01440 
03130 
02022 
01503 
02407 
01503 
01640 
00000 
01447 
01413 

03142 
02022 
03131 
01457 
03145 
03135 
01460 
03130 
02022 
01503 
02407 
01510 
00234 
01467 
01640 
00000 
02407 
01517 
00140 
00714 



004622412523 
636047514627 
512144602551 
514651736047 
514627512144 
606325514431 
452163252433 
004623632143 
602464444760 
462660000000 
000000602646 
434346666233 
004623632143 
602464444760 
462660216262 
254422432524 
604751462751 



C001 
LSUB 



LDQ 
CLA 
SUB 
TPL 
LDQ 
CLA 
TRA 
AOD 
STO 
STQ 
TSX 
PZE 
TSX 
PZE 
TXI 
TXH 

LDQ 
CLA 
SUB 
TPL 
LDQ 
CLA 
TRA 
ADO 
STO 
STQ 
TSX 
PZE 
CAL 
STA 
TSX 
PZE 
TSX 
PZE 
SLF 
TRA 



PROER BCI 



PMH 



BCI 



=HOOCTAL 

PMCNT 

= 5 

•+4 

•H10CTAL 

= 5S 

• ♦2 
= 3 

PMCNT 
PMH 
WOT, 4 
PMH, 0,5 
0CTDMP,4 
»«,0,»« 
•+1,2,-1 
SLPM+1,2,» 

-HOOCTAL 

PMCNT 

»5 

• ♦4 

•H10CTAL 
= 59 

• + 2 
= 3 

PMCNT 
PMH 
WOT, 4 
PMBP,0,7 
ORG 

• ♦2 
0CT0MP.4 

• », 0,256 
WOT, 4 
ENOPM.0,4 

FINIS 



ASSUME DOUBLE SPACE FOR HEADING. 

GET PM LINE COUNT. 

AT LEAST FIVE LINES LEFT. 

IF PLUS, OK, SKIP. 

SET TO EJECT PAGE. 

RESET LINE COUNT. 

SKIP ADCITION. 

NORMALLY TWO LINES FOR HEADING. 

SAVE PM LINE COUNT. 

INSERT CARRA1GE CONTROL. 

PRINT HEADING. 

EXIT TO GIVE POST MORTEM. 

COUNT* INSERTED BY MAP, NEXT POST MORTEM. 

ASSUME DOUBLE SPACE FOR HEADING. 

GET PM LINE COUNT. 

AT LEAST FIVE LINES LEFT. 

IF PLUS, OK, SKIP. 

SET TO EJECT PAGE. 

RESET LINE COUNT. 

SKIP ADDITION. 

NORMALLY TWO LINES FOR HEADING. 

SAVE PM LINE COUNT. 

INSERT CARRIAGE CONTROL. 

PRINT HEADING. 

SET ORIGIN OF ASSEM8LE0 PROGRAM. 



END OF POST MORTEM, COMMENT. 

TURN OFF SL AFTER POST MORTEM. 
RETURN. 



PHBP BCI 



7.00BJECT PROGRAM ERROR, PROGRAM TERMINATED. 



5.00CTAL DUMP OF OOOOCO FOLLOWS. 



7.0OCTAL DUMP OF ASSEKBLEC PROGRAM FOLLOWS. 



TT)52060 

TT)52070 

TTJ52080 

TT)52090 

TTI52100 

TTI52110 

TT)52120 

TT)52130 

TT152140 

TT152150 

TT152160 

TT)52170 

TT)52180 

TTI52190 

TT)52200 

TTI52210 

TTI52220 

TT152230 

TT152240 

TTI52250 

TTJ52260 

TTI52270 

TT152280 

TT)52290 

TT 152 300 

TTI52310 

TT)52320 

TT152330 

TT)52 340 

TT152350 

TT)52360 

TT152370 

TT152380 

TT)52390 

TT)52400 

TTI52410 

TTI52420 

TT152430 

TT)52440 



TTI52450 



TT) 52460 



01515 
01516 
01517 
C1520 
01521 
01522 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 5, SVCON, PMR, OCT, OCTADR, AND TABBLK. 



214460264643 
434666623360 
002545246046 
266047466263 
604446516325 
443360 606060 



ENOPM 8C I 



4.0END OF POST MORTEM. 



TT) 52470 



SPACE 



USE RESULTS OF SVCON TO OUMP CONSOLE LIGHTS. 



01523 

01524 

01525 

01526 

01527 

01530 

01531 

01532 

01533 

01534 

01535 

01536 

01537 

01540 

01541 

01542 

01543 

01544 

01545 

01546 

01547 

01550 

01551 

01552 

C1553 

01554 

01555 

01556 

01557 

01560 

01561 

01562 

01563 

01564 

01565 

01566 

01567 

01570 

01571 

01572 

01573 

01574 

01575 

01576 



0634 00 
0560 00 
-07 54 00 
-0763 00 
0767 00 
-0763 00 
0767 00 
-0763 00 
-0501 00 
0602 00 
0560 00 
0074 00 
0602 00 
-0600 00 
0560 00 
0074 00 
0602 00 
-0600 00 
0560 00 
0074 00 
0602 00 
-0600 00 
0560 00 
0074 00 
-0600 00 
0560 00 
0074 00 
-0600 00 
0560 00 
0074 00 
-0600 00 
0074 00 
00004 
0074 00 
0000 3 
00 74 00 
00004 
0074 00 
0000 4 
0074 00 
00004 
0074 00 
0000 3 
0074 00 



4 









c 


4 







4 







4 







4 





4 





4 



4 



4 



4 



4 



4 



4 



4 



01602 

01172 

00000 

00001 

00013 

0000 I 

00013 

00001 

03155 

01612 

01170 

01260 

01615 

01616 

01171 

01260 

01621 

01622 

01167 

01260 

01625 

01626 

01164 

01173 

01631 

01165 

01173 

01634 

01166 

01173 

01637 

02407 

01604 

02407 

01610 

02407 

01613 

02407 

01617 

02407 

01623 

02407 

01627 

02407 



OCON 



SXA 


0CNX4.4 


SAVE IR4. 


LOQ 


SVPQ 


S,Q,P. 




PXD 


0,0 


CLEAR AC. 


LGL 


1 


, > 




ALS 


11 






LGL 


1 






ALS 


11 






LGL 


1 


. . 




ORA 


«H 0,0,0 


PUT IN 


COMMAS. 


SLW 


HEAD02+2 


INSERT. 




LOO 


AC 


CONVERT 


AC TC OCTAL 


TSX 


OCT, 4 


• • 




SLW 


HEAD03*2 


INSERT. 




STQ 


HEA003+3 


. . 




LOQ 


MQ 


CONVERT 


MQ TO OCTAL 


TSX 


OCT, 4 


• • 




SLW 


HEAD04+2 


INSERT. 




STQ 


HEA004*3 


^ # 




LOQ 


SINO 


CONVERT 


SI TO OCTAL 


TSX 


OCT, 4 


■ • 




SLW 


HEAD05+2 


INSERT. 




STQ 


HEA005+3 


• • 




LOQ 


IR1 


CONVERT 


IR1. 


TSX 


0CTADR,4 


• • 




STQ 


HEAD06+2 


INSERT. 




LOQ 


IR2 


CONVERT 


IR2. 


TSX 


OCTADR, 4 


m # 




STQ 


HEAD07+2 


m 




LDQ 


IR4 


CONVERT 


IR4. 


TSX 


OCTADR, 4 


# m 




STQ 


HEAD08+2 


INSERT. 




TSX 


WOT, 4 


PRINT CONSOLE. 


PZE 


HEA001,0,4 


• a 




TSX 


WOT, 4 


• • 




PZE 


HEA002,0,3 






TSX 


WOT, 4 


• a 




PZE 


HEA003,0,4 


• • 




TSX 


WOT, 4 


• ■ 




PZE 


HEAD04.0.4 


^ m 




TSX 


WOT, 4 


• a 




PZE 


H£AD05,0,4 






TSX 


WOT, 4 


a a 




PZE 


HEAD06,0,3 






TSX 


WOT, 4 


a a 





TT)52480 

TT) 52490 

TT) 52500 

TT)52510 

TTI52520 

TTI52530 

TT)52 540 

TTI52550 

TT) 52 560 

TT)52570 

TT152580 

TT)52590 

TTJ52600 

TT152610 

TT152620 

TTI52630 

TT)52640 

TTJ52650 

TT)52660 

TT)52670 

TT)52680 

TTJ52690 

TTI527O0 

TT)52710 

TTI52720 

TT)52730 

TT)52740 

TT)52750 

TT)52760 

TTI52770 

TT) 52780 

TTI52790 

TTJ52800 

TT)52810 

TTI52 820 

TTI52830 

TTI52840 

TTI52850 

TT) 52 860 

TTI52870 

TT)52880 

TT)52890 

TT152900 

TT)52910 

TTJ52920 

TT 152930 

TT)52940 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 5, SVCON, PMR. OCT, OCTAOR, AND TABBLK. 



01577 00003 01632 

01600 0074 00 4 02407 

01601 00003 01635 

01602 0774 00 4 00000 

01603 0020 00 4 00001 

C1604 014746626360 

01605 444651632544 

01606 604626602346 

01607 456246432533 

01610 006060606060 

01611 627350734713 

01612 600073007300 

01613 006060606Q60 

01614 212360136060 

01615 000000000000 

01616 000000000000 

01617 006060606060 

01620 445060136060 

01621 000000000000 

01622 000000000000 

01623 006060606060 

01624 623160136060 

01625 OOOCOOOOOOOO 

01626 000000000000 

01627 006060606060 

01630 315101136060 

01631 000000000000 

01632 006060606060 

01633 315102136060 
C1634 000000000000 

01635 006060606060 

01636 315104136060 

01637 OOOOOOOOOOOO 



01640 
01641 
01642 
01643 
01644 
01645 
01646 
01647 
01650 
01651 
01652 
01653 
01654 
01655 
01656 
01657 



06 34 

06 34 

0634 

-0500 

-07 34 

0621 

0771 

0361 

0621 

0621 

0621 

0560 

0074 

-07 7 3 

-0600 

0774 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



02016 
02017 
02020 
00001 
00000 
02023 
00022 
00001 
01660 
01664 
01742 
02023 
01173 
00006 
02746 
00022 



CCNX4 


PZE 
TSX 
PZE 
AXT 
TRA 


H€AD01 


BCI 


HEA002 


BCI 


HEA003 


BCI 


HEA004 


BCI 


HEA005 


BCI 


HEA006 


BCI 


HEA007 


BCI 


HEA008 


; BCI 



SPACE 



OCTDMP SXA 
SXA 
SXA 
CAL 
POX 
ST A 
ARS 
ACL 
ST A 
ST A 
STA 
AOR LOO 
TSX 
RQL 
STQ 
L00P2 AXT 



HEAD07,0,3 

WOT, 4 

HEAO08,O,3 

..,4 RESTORE 1R4. 

1,4 RETURN. 

4.1P0ST MORTEM OF CONSOLE. 



3,0 S,Q,P* 0,0,0 

4,C AC = OOOOOOOOOOOO 

4,0 MQ = OOOOOOOOOOOO 

t, t Q si « OOOOOOOOOOOO 

3,0 IR1* 000000 

3,0 IR2= 000000 
3,0 IR*« 000000 

OCTDMP, OCTAL OUMP WITH MNEMONICS. 



0X4,4 

0X2,2 

DX1.1 

1,* 

0,1 

ILC 

IB 

I. A 

LCOPl 

LOOP 1*4 

REG+2 

ILC 

OCTAOR, 4 

6 

0UT*1 

18,2 



SAVE IRS. 

• • 

GET CALLING SEQUENCE. 
COUNT TO IR1. 
FIRST LOCATION. 
FIRST ♦ N » LAST. 
COMPUTE END ADDRESS. 
SET UP LOOP. 

* • 

GET ILC AND CONVERT. 

PUT BLANK AT END. 

INSERT. 

SET WORD COUNT. 



TTI52950 
TT)52 960 
TTI52970 
TT) 52980 
TTI52 990 
TT) 53000 
TT153010 



TTJ53020 
TT153030 

TT) 53040 

TT153050 

TT) 53060 
TT)53070 
TT153080 



TT 153090 
TT) 53100 
TT)53110 
TT)53120 
TTI53130 
TT)53140 
TT)53150 
TT153160 
TT)53170 
TT)53180 
TT)53190 
TT 153200 
TT)53210 
TT)53220 
TT)53230 
TT)53240 
TT)53250 
TTJ53260 
TT)53270 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 5, SVCON. PHR, OCT, OCTADR, ANO TABBLK. 



01660 


-0500 00 1 00000 


L00P1 CAL 


••»1 


01661 


-3 00017 2 01740 


TXL 


REG, 2, 15 


01662 


0602 00 02024 


SLW 


LWORD 


01663 


0774 00 4 00000 


AXT 


0,4 


01664 


-0340 00 1 00000 


LAS 


*»,1 


01665 


0020 00 01672 


TRA 


• ♦5 


01666 


1 00001 4 01670 


TXI 


•+2,4,1 


01667 


0020 00 01672 


TRA 


• ♦3 


01670 


2 00001 1 01664 


TIX 


•-4,1, 1 


01671 


1 77777 4 01672 


TXI 


•♦1,4,-1 


01672 


3 00022 4 01675 


TXH 


•+3,4,18 


01673 


-0634 00 4 01674 


SXO 


• + 1,4 


01674 


1 00000 I 01740 


TXI 


REG, 1,»» 


01675 


0634 00 4 02025 


SXA 


NREP.4 


01676 


0560 00 02025 


LOO 


NREP 


01677 


0600 00 02026 


STZ 


ONREP 


01700 


0774 00 4 00036 


AXT 


30,4 


01701 


-0754 00 00000 


PXO 


0,0 


01702 


0221 00 03133 


OVP 


= 10 


01703 


0767 00 4 00036 


ALS 


30,4 


01704 


-0602 00 02026 


ORS 


ONREP 


01705 


2 00006 4 01701 


TIX 


•-4,4,6 


01706 


0560 00 02026 


LDQ 


ONREP 


01707 


-0154 06 01207 


CRQ 


TABBLK, 0,( 


01710 


-0600 00 02037 


STQ 


WREP+8 


01711 


-0500 00 02024 


CAL 


LWORD 


01712 


0074 00 4 02047 


TSX 


(OPCO) ,4 


01713 


0602 00 02043 


SLW 


WREP+12 


01714 


0560 00 02024 


LDQ 


LWORD 


01715 


0074 00 4 01260 


TSX 


OCT, 4 


01716 


0602 00 02044 


SLW 


WREP+13 


01717 


-0600 00 02045 


STQ 


WREP+14 


01720 


0560 00 03143 


LDO 


»HC 


01721 


0500 00 02022 


CLA 


PMCNT 


01722 


0402 00 03130 


SUB 


»3 


01723 


0120 00 01726 


TPL 


»+3 


01724 


0560 00 03146 


LOO 


"HI 


01725 


0500 00 03134 


CLA 


•58 


01726 


0601 00 02022 


STO 


PMCNT 


01727 


-0600 00 02027 


STQ 


WREP 


01730 


0074 00 4 02407 


TSX 


WOT, 4 


01731 


00020 02027 


PZE 


WREP, 0,16 


01732 


0074 00 4 02407 


TSX 


WOT, 4 


01733 


00001 03160 


PZE 


*H ,0 


01734 • 


-0500 00 02023 


CAL 


ILC 


01735 


0361 00 02025 


ACL 


NREP 


01736 


0621 00 02023 


STA 


ILC 


01737 


0020 00 01653 


TRA 


AOR 


01740 


0074 00 4 02047 


REG TSX 


(OPCO), 4 


01741 


0602 00 2 02771 


SLW 


OUT+20,2 


01742 


0560 00 1 00000 


LDQ 


••,1 


01743 


0074 00 4 01260 


TSX 


OCT ,4 


01744 


0602 00 2 02772 


SLW 


OUT+21,2 


01745 - 


0600 00 2 02773 


STO 


OUT+22,2 



GET WORD. 

IF FIRST WORO. CHECK FOR REPEATS. 

SAVE WORO. 

SET IR4. 

CHECK FOR REPEATS. 

NOT SAKE, EXIT. 

SAME, INDEX. 

NOT SAME, EXIT. 

INDEX AND TRY NEXT WORD. 

LAST WORD, INDEX FOR LINE AT BOTTOM. 

IF MORE THAN 18 REPEATS, COMMENT. 

LESS THAN SIX, RETURN TO NORMAL. 

• • 

MORE THAN SIX, CONVERT NUMBER. 

PLACE IN MO. 

CLEAR DECIMAL NREP. 

SET CONVERSION LOOP. 

CLEAR AC. 

MOD TEN. 

SHIFT TO POSITION. 

INSERT. 

INDEX. 

DELETE LEADING ZEROES. 

• • 

PLA.CE IN COMMENT. 
CONVERT WORC. 



ASSUME DOUBLE SPACE FOR COMMENT. 

GET POST MORTEM LINE COUNT. 

REPEAT COMMENT TAKES THREE LINES. 

SKIP IF IT FITS. 

SET TO EJECT PAGE. 

RESET PM LINE COUNT. 

SAVE LINE COUNT. 

INSERT CARRIAGE CONTROL. 

WOT REPEATS. 

• • 

BLANK LINE. 

INCREMENT ILC BY NREP. 

• • 

RETURN TO CONTROL LOOP. 
NORMAL PATH, CONVERT WORO. 

• ■ 

CONVERT TO OCTAL. 
INSERT. 



TT)53280 

TT 153290 

TT153300 

TT)53310 

TT153320 

TT153330 

TT)53340 

TT)53350 

TT)53360 

TTJ53370 

TTJ53380 

TTI53390 

TTI53400 

TT)53410 

TTI53420 

TTI53430 

TT 153440 

TT153450 

TT153460 

TT153470 

TT)53480 

TT153490 

TT 153500 

TT)53510 

TT153520 

TT153530 

TT153540 

TT153550 

TT153560 

TT153570 

TT153580 

TT153590 

TT 153600 

TT153610 

TT 153620 

TT153630 

TTI53640 

TT153650 

TT) 53660 

TT153670 

TT153680 

TT 153690 

TT) 53700 

TT153710 

TT153720 

TT153730 

TT153740 

TT) 53750 

TT 153 760 

TT153770 

TTI53780 

TT153790 

TT153800 

TTI53810 

TT153820 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PRCGRAM. 

SECTION 5, SVCONi PMR. OCT, OCTAOR, ANO TABBLK. 



01746 


-2 00001 1 


01776 




TNX 


FIN. 1,1 


01747 


2 0000 3 2 


01660 




T!» 


L00P1,2,3 


01750 


0560 00 


03160 


PPM 


LDQ 


=H 


01751 


0500 00 


02022 




CLA 


PMCNT 


01752 


0402 00 


03126 




SUB 


= 1 


01753 


0120 00 


01756 




TPL 


• ♦3 


0175* 


05 60 


03146 




LDU 


=H1 


01755 


0500 00 


03135 




CLA 


= 59 


01756 


0601 00 


02022 




STO 


PMCNT 


01757 


-0600 00 


02745 




STQ 


OUT 


01760 


0074 00 4 


02407 




TSX 


HOT, 4 


01761 


00024 


02745 




PZE 


OUT, 0,20 


01762 


-0500 00 


02746 




CAL 


0UT+1 


01763 


-03 20 00 


03150 




ANA 


=0070707070777 


01764 


0361 00 


03144 




ACL 


•O0070707C7600 


01765 


-0320 00 


03150 




ANA 


=0070707070777 


01766 


-0130 00 


00000 




XCL 




01767 


-0154 04 


01207 




CRQ 


TABBLK, 0,4 


01770 


-0773 00 


00014 




RQL 


12 


01771 


-0600 00 


02746 




STQ 


OUT+l 


01772 


-0500 00 


02023 




CAL 


ILC 


01773 


0361 00 


03132 




ACL 


=6 


01774 


0621 00 


02023 




ST A 


ILC 


01775 


0020 00 


01657 




TRA 


L00P2 


01776 


-2 0000 3 2 


02004 


FIN 


TNX 


•♦6,2,3 


01777 


-0500 00 


03160 




CAL 


= H 


02000 


0602 00 2 


02771 




SLH 


OUT+20,2 


02001 


0602 00 2 


02772 




SLW 


OUT*21,2 


02002 


0602 00 2 


02773 




SLW 


OUT+22,2 


02003 


2 0000 3 2 


02000 




TIX 


•-3,2,3 


02004 


0560 00 


03160 




LOO 


=H 


02005 


0500 00 


02022 




CLA 


PMCNT 


02006 


0402 00 


03126 




SUB 


= 1 


02007 


0120 00 


02012 




TPL 


• ♦3 


02010 


0560 00 


03146 




LOO 


«H1 


02011 


0500 00 


.03135 




CLA 


= 59 


C2012 


0601 00 


02022 




STO 


PMCNT 


02013 


-0600 00 


02745 




STO 


OUT 


02014 


0074 00 4 


02407 




TSX 


HOT, 4 


02015 


00024 


02745 




PZE 


OUT, 0,20 


2016 


0774 00 4 


00000 


CX4 


AXT 


••,4 


02017 


0774 00 2 


00000 


CX2 


AXT 


••,2 


02020 


0774 00 1 


00000 


CXI 


AXT 


••,1 


02021 


0020 00 4 


00002 




TRA 


2,4 


02022 


00000 


00055 


PMCNT 


PZE 


45 


02023 


00000 


00000 


ILC 


PZE 




02024 


00000 


00000 


LWORC 


PZE 




02025 


00000 


00000 


NREP 


PZE 




02026 


00000 


00000 


CNREP 


PZE 




02027 


006060 60 6060 


WREP 


BCI 


9,0 


02030 


606060 606060 








02031 


606060606060 








02032 


60 6060 606060 









COUNT WORDS CONVERTED. 
COUNT WORDS THIS LINE. 

ASSUME SINGLE SPACE FOR THIS LINE. 

GET LINE COUNT. 

COUNT 1 LINE. 

SKIP IF IT FITS. 

SET TO EJECT. 

SET LINE COUNT. 

SAVE LINE COUNT. 

SET CARRIAGE CONTROL. 

PRINT THIS LINE. 

UPDATE WORD COUNT. 



REMOVE LEADING ZEROES. 
BACK TO PROPER POSITION. 
INSERT. 
UPDATE ILC. 



IF LINE NOT FULL, 

FILL IN LINE WITH BLANKS. 



INDEX. 

ASSUME SINGLE SPACE FOR LAST LINE. 

GET LINE COUNT. 

COUNT 1 LINE. 

SKIP IF IT FITS. 

SET TO EJECT. 

SET LINE COUNT. 

SAVE LINE COUNT. 

SET CARRIAGE CONTROL. 

PRINT LAST LINE. 

RESTORE IRS. 



RETURN. 

STORAGE FOR LINE COUNT. 
POST MORTEM STORAGE. 



.. FOLLOWING 00000 



TT>53830 

TTI53840 

TT153850 

TT)53860 

TT153870 

TT)53880 

TT 153890 

TT)53900 

TT153910 

TT> 539.20 

TT)53930 

TT153940 

TT153950 

TT153960 

TT153970 

TT153980 

TT)53990 

TT 154000 

TT154010 

TTI54020 

TT154030 

TT 154040 

TT154050 

TT I 54060 

TT1 54070 

TTI54080 

TT 154090 

TTI54100 

TTI54110 

TT154120 

TT154130 

TT154140 

TT154150 

TT154160 

TT154170 

TT154180 

TTI54190 

TT 154 200 

TT154210 

TT154220 

TTI54230 

TT 154240 

TT 154250 

TT154260 

TT154270 

TT154280 

TT154290 

TT154300 

TT154310 

TT 154320 

TT154330 

TT 154340 



02033 
02034 
02035 
C2036 
02037 
02040 
02041 
C2042 
02043 
02044 
02045 
02046 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 5, SVCON, PMR, OCT, OCTADR, AND TA8BLK. 



606060606060 
606060 606060 
333360264643 
434666314527 
600000000000 
602325434362 
602143436023 
464563213145 
600000000000 
000000000000 
000000000000 
603333606060 



BCI 



7, CELLS ALL CONTAIN 00000000000000000 



TT)54350 



02047 
02050 
C2051 
02052 
02053 
02054 
02055 
02056 
02057 
02060 
02061 

02062 

02063 

02064 

02065 

02066 

02067 

02070 

02071 

02072 

02073 

02074 

02075 

02076 

02077 

02100 

02101 

02102 

02103 

02104 

02105 

02106 

02107 

02110 

02111 

02112 

02113 



0634 
06 34 
0774 
-0320 
0100 
0602 
06 30 
05 20 
0020 
0534 
0020 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



02131 
02132 
00000 
03165 
02125 
02135 
02134 
02134 
02117 
02406 
02116 



-3 77540 

-0500 00 

-0320 00 

-0340 00 

1 77776 

0020 00 

1 77776 

00400 

77400 

00200 

77600 

00100 



1 77700 



00040 
77740 
00020 
77760 
00010 
77770 
00004 
77774 
00002 
77776 
00001 
77777 



0020 00 



02066 
02146 
03165 
02135 
02115 
02125 
02116 
02062 
02062 
02062 
1 02062 
1 02062 
02062 
02062 
02062 
02062 
02062 
02062 
02062 
02062 
02062 
1 02062 
1 02062 
1 02062 
1 02062 
02117 



SPACE 



(OPCD) SXA 
SXA 
AXT 
ANA 
TZE 
SLM 
STP 
ZET 
TRA 
LXA 
TRA 

SRCH1 TXL 
CAL 
ANA 
LAS 

SRCH2 TXI 
TRA 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TRA 



(OPCD), FIND MNEMONIC OPERATION CODE. 



AR2.2 

AR1.1 

0,1 

•0777700000000 

OPFND 

OPBIN 

PRE 

PRE 

TYPEA 

SIZE, 2 

LOWER, 2 

SRCH2.1.-NUM 
TABL.l 

»0777700000000 
OPBIN 

RAISE, 2, -2 
OPFND 

LOWER, 2, -2 
SRCHl, 1, +256 
SRCHl, 1,-256 
SRCH1,1,+128 
SRCHl, 1,-128 
SRCHl, 1,*64 
SRCHl, 1,-64 
SRCHl, 1,*32 
SRCHl, 1,-32 
SRCHl, 1, +16 
SRCHl, 1,-16 
SRCHl, 1, +8 
SRCHl, 1,-8 
SRCHl, 1,*4 
SRCHl, 1,-4 
SRCHl, 1, +2 
SRCHl, 1,-2 
SRCHl, 1,*1 
SRCHl, 1,-1 
TYPEA 



SAVE IR2. 

SAVE IR1. 

SET IR1. 

MASK OPCD. 

HTR EXIT. 

SAVE OPCD. 

SAVE PREFIX. 

IF NON-ZERO, TYPE A. 

• • 

SET IR2. 
BEGIN SEARCH. 

CHECK RANGE. 

GET TABLE ENTRY. 

MASK OPCD. 

COMPARE WITH OPBIN. 

8IGGER, GO TO RAISE INOEX. 

FOUND, EXIT WITH INDEX. 

SMALLER, GO TO LOWER INDEX. 

TABLE, POWER OF TWO INCREMENTS. 



NOT FOUNO, TYPE A. 



TTI 54360 

TTI54370 

TT) 54380 

TTI54390 

TTI54400 

TT)54410 

TT 154420 

TT 154430 

TT) 54440 

TT154450 

TT)54460 

TT) 54470 

TTI54480 

TT)54490 

TTJ54500 

TTI54510 

TT)54520 

TT)54530 

TT154540 

TTI54550 

TT154560 

TT)54570 

TTI54580 

TT)54590 

TT) 54600 

TT154610 

TT 154620 

TT) 54630 

TT 154640 

TT)54650 

TT) 54660 

TT 154670 

TT 154680 

TT)54690 

TTJ54700 

TT)54710 

TT)54720 

TT)54730 

TT 154740 

TT)54750 

TT) 54760 



TESTS) FOR CAP. MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 5, SVCON, PUR, OCT, OCTAOR, AND TABBLK. 



RAISE INOEX. 
LOWER INOEX. 



02114 


0020 


00 





02117 




TRA 


TYPEA 


02115 


0522 


00 


2 


02115 


RAISE 


XEC 


•,2 


02116 


0522 


00 


2 


02116 


LOWER 


XEC 


•.2 


C2117 


0560 


00 





02135 


TYPEA 


LDQ 


OPBIN 


02120 


-0754 


00 





00000 




PXO 


0,0 


02121 


-0763 


00 





00003 




LGL 


3 


02122 


0734 


00 


1 


00000 




PAX 


0,1 


02123 


-0500 


00 


1 


02145 




CAL 


LSTA+7,1 


02124 


0020 


00 





02131 




TRA 


AR2 


02125 


-0500 


00 


1 


02146 


OPFNO 


CAL 


TA8L.1 


02126 


-0320 


00 





03140 




ANA 


•O00O0OO777777 


02127 


0767 


00 





00006 




ALS 


6 


02130 


-0501 


00 





03156 




OR A 


*H OCO 


02131 


0774 


00 


2 


00000 


AR2 


AXT 


•»,2 


C2132 


0774 


00 


1 


00000 


AR1 


AXT 


• »,1 


02133 


0020 


00 


4 


00001 




TRA 


1,4 


02134 


00000 





00000 


PRE 


PZE 




02135 


oocoo 





00000 


OPBIN 


PZE 





TYPE A, PICKUP MNEMONIC. 



PICKUP MNEMONIC. 
GO TO EXIT. 

OPERATION FOUND, PICKUP WORO. 

MASK OUT JUNK. 

SHIFT LEFT ONE CHARACTER. 

INSERT BLANKS. 

RESTORE IRS. 

RETURN TO CALLER. 

PREFIX STORAGE FOR TYPE A TEST. 
STORAGE FOR BINARY OPCO. 



TTI54770 
TT)54780 
TT) 54790 
TT)54800 
TT)54810 
TTI54820 
TTI54830 
TT)54840 
TTI54850 
TTI54860 
TT154870 
TT154880 
TT) 54890 
TT)54900 
TTI54910 
TT)54920 
TT)54930 
TT) 54940 
TT) 54950 
TT)54960 
TT154970 



SPACE 



TABLES FOR (OPCD). 



02136 
02137 
02140 
02141 
02142 
02143 
C2144 
02145 

02146 
02147 
02150 
02151 
02152 
02153 
02154 
02155 
02156 
02157 
02160 
02161 
02162 
02163 
02164 
02165 
02166 
02167 
02170 
02171 



606063 
60 6063 
606C62 
606044 
606063 
606063 
606063 
606047 



674360 
456760 
635160 
712560 
673060 
316760 
673160 
712560 



000000306351 
002000635121 
002100636351 
002200635123 
002400635123 
003000632526 
003100632526 
004000634350 
004100313121 
004200633146 
004300 462131 
004400472131 
004600633126 
005100313151 
00 5400512663 
005500623151 
005600514563 
005700513151 
006000 632346 
006100632346 



LSTA 



TABL 



BCI 


1, TXL 




BCI 


1, TNX 




BCI 


1, STR 




BCI 


1, MZE 




BCI 


1, TXH 




BCI 


1, TIX 




BCI 


1, TXI 




BCI 


1, PZE 




VFD 


012/0000, H24/0HTR 


HTR 


VFD 


012/0020, H24/0TRA 


TRA 


VFO 


012/0021, H24/0TTR 


TTR 


VFO 


012/0022, H24/0TRC 


TRCA 


VFO 


012/0024, H24/0TRC 


TRCC 


VFO 


012/0030, H24/0TEF 


TEFA 


VFO 


012/0031, H24/0TEF 


TEFC 


VFO 


012/0040, H24/0TLC 


TLQ 


VFD 


012/0C41,H24/0IIA 


IIA 


VFD 


Ol2/0C42,h24/OTIO 


T10 


VFD 


012/0043, H24/00AI 


OAI 


VFD 


012/0044, H24/0PAI 


PAI 


VFO 


012/0046, H24/0TIF 


TIF 


VFO 


O12/0C51,H24/0IIR 


IIR 


VFO 


012/0054, H24/0RFT 


RFT 


VFD 


012/0055, H24/0SIR 


SIR 


VFO 


012/0056, H24/0RNT 


RNT 


VFD 


O12/0C57.H24/ORIR 


RIR 


VFD 


012/0060, H24/0TC0 


TCOA 


VFD 


012/0061, H24/0TC0 


TCOB 



TT)54980 
TTI54990 
TT)55000 
TT155010 
TTJ55020 
TT)55030 
TT 155040 
TT (55050 
TT)55060 
TT) 55070 
TT 155080 
TTI55090 
TTI55100 
TT)55110 
TT155120 
TTI55130 
TTI55140 
TTJ55150 
TT)55160 
TT)55170 
TT)55180 
TT)55190 
TT155 200 
TTI55210 
TT155220 
TT 155230 
TT)55243 
TTI55250 
TTI55260 
TTI55270 
TTI55280 
TT) 55290 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 5, SVCON, PMR, OCT, OCTADR, AND TABBLK. 



02172 
02173 
02174 
02175 
02176 
C2177 
02200 
02201 
02202 
C2203 
02204 
02205 
02206 
02207 
02210 
02211 
02212 
02213 
02214 
02215 
02216 
02217 
02220 
02221 
02222 
02223 
02224 
02225 
02226 
02227 
02230 
02231 
02232 
02233 
02234 
02235 
02236 
02237 
02240 
02241 
02242 
02243 
02244 
02245 
02246 
02247 
02250 
02251 
02252 
02253 
02254 
02255 
02256 
C2257 
02260 



006200 632346 
006300632346 
007400636267 
010000637125 
011400236551 
012000634743 
013100672321 
014000634665 
016100 635046 
016200635047 
020C00444770 
020400654344 
022000246530 
022100246547 
022400652430 
022500652447 
024000262430 
024100262447 
026000264447 
030000262124 
030200266222 
030400262144 
030600266244 
032000214562 
032200255121 
034000232162 
036100212343 
040000212424 
040100212444 
040200626422 
042000 304751 
044000313162 
044100432431 
044200466231 
044400462663 
044500513162 
044600 464563 
046000432421 
050000234321 
050200234362 
052000712563 
052200672523 
053400436721 
053500432123 
054000512330 
054100512330 
054400432330 
054500432330 
056000432450 
056200435131 
056400254522 
060000626371 
060100626346 
060200624366 
06 0400626331 



VFD 012/0062, H24/0TC0 TCOC 

VFO 012/0063, H24/0TCO TCOD 

VFO 012/0074, H24/0TSX TSX 

VFO 012/0100, H24/0TZE TZE 

VFO 012/0114, H24/0CVR CVR 

VFO 012/0120, H24/0TPL TPL 

VFD 012/0131, H24/0XCA XCA 

VFO 012/0140, H24/0T0V TOV 

VFD 012/0161, H24/0TOO TOO 

VFO 012/0162, h24/0TQP TCP 

VFD 012/0200, H24/0MPY MPY 

VFD 012/0204, H24/0VLM VLM 

VFD 012/0220, H24/00VH OVH 

VFO 012/0221, H24/00VP OVP 

VFD 012/0224, H24/0V0H VDH 

VFO 012/0225, H24/0V0P VDP 

VFD 012/0240, H24/0FOH FOH 

VFD 012/0241, H24/0FDP FOP 

VFD 012/0260, H24/0FMP FMP 

VFD 012/0300, H24/0FAD FAD 

VFD 012/0302, H24/0FSB FSB 

VFD 012/0304, H24/0FAM FAM 

VFD 012/0306, H24/0FSM FSM 

VFO 012/0320, H24/0ANS ANS 

VFD 012/0322, H24/0ERA ERA 

VFO 012/0340, H24/0CAS CAS 

VFO 012/0361, H24/0ACL ACL 

VFD 012/0400, H24/0ADD ADD 

VFD 012/0401, H24/0ADM ADM 

VFD 012/0402, H24/0SUB SLB 

VFO 012/0420, H24/0HPR HPR 

VFO 012/0440, H24/0IIS IIS 

VFO 012/0441, H24/0LDI LCI 

VFD 012/0442, H24/0OSI OSI 

VFO 012/0444, H24/0OFT OFT 

VFD 012/0445, H24/0RIS RIS 

VFO 012/0446, H24/0ONT ONT 

VFO 012/0460, H24/0LDA LCA 

VFD 12/0500, H24/0CLA CLA 

VFD 012/0502, H24/0CLS CLS 

VFD 012/0520, H24/0ZET ZET 

VFO 012/0522, H24/0XEC XEC 

VFO 012/0534, H24/0LXA LXA 

VFD 012/0535, H24/0LAC LAC 

VFO 012/0540, H24/0RCH RCHA 

VFD 012/0541, H24/0RCH RCHC 

VFD 012/0544, H24/0LCH LCHA 

VFD 012/0545, H24/0LCH LCHC 

VFD 012/0560, H24/0LD0 LOO 

VFD 012/0562, H24/0LRI LRI 

VFD 012/0564, H24/0ENB ENB 

VFD 012/0600, H24/0STZ STZ 

VFD 012/0601, H24/0ST0 STO 

VFO 012/0602, H24/0SLH SLW 

VFO 012/0604, H24/0STI STI 



TTI55300 
TT)55310 
TTI55320 
TTI55330 
TT 155 340 
TT)55350 
TT155360 
TTI55370 
TTI55380 
TTI55390 
TTJ55400 
TT155410 
TTI55420 
TT)55430 
TTJ55440 
TT)55450 
TTI55460 
TT) 55470 
TTJ55480 
TTJ55490 
TT) 55500 
TTI55510 
TTJ55520 
TT155530 
TT) 55540 
TTJ55550 
TT)55560 
TTI55570 
TTJ55580 
TTI55590 
TTJ55600 
TT)55610 
TT)55620 
TT)55630 
TTJ55640 
TT)55650 
TT) 55660 
TT) 55670 
TTI55680 
TT)55690 
TTI55700 
TT)55710 
TT)55720 
TTJ55730 
TT)55740 
TTI55750 
TT)55760 
TTJ55770 
TT)55780 
TT)55790 
TT)55800 
TT155810 
TT)55820 
TTI55830 
TT)55840 



TESTS) FOR CAPi MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 5, SVCON, PMR, OCT. OCTAOR, AND TABBLK. 



02261 
02262 
02263 
02264 
02265 
02266 
02267 
02270 
02271 
02272 
02273 
02274 
02275 
02276 
02277 
02300 
02301 
02302 
02303 
02304 
02305 
02306 
02307 
02310 
02311 
02312 
02313 
02314 
02315 
02316 
02317 
02320 
02321 
02322 
02323 
02324 
02325 
02326 
02327 
02330 
02331 
02332 
02333 
02334 
02335 
02336 
02337 
02340 
02341 
02342 
02343 
02344 
02345 
02346 
02347 



062100626321 
062200626324 
062500626363 
063000626347 
063400626721 
064000622330 
064100622330 
070000234770 
073400472167 
073700472123 
075400476721 
076000476225 
076100454647 
07 6200512462 
076300434362 
076400226251 
076500435162 
076600 665162 
076700214362 
077000662526 
077100215162 
077200512566 
077400216763 
077600622445 
402100254563 
402200635123 
402400635123 
403000632526 
403100632526 
404200513121 
404600473121 
405100313143 
405400432663 
405500623143 
405600434563 
405700513143 
406000632345 
406100632345 
406200632345 
406300632345 
410000634571 
411400232150 
412000634431 
413000672343 
414000634546 
415400235150 
420000 444751 
426000642644 
430000642621 
430200 642662 
430400 642144 
430600 646244 
432000214521 
434000432162 
440000 622244 



VFO 


012/0621, 


H24/0STA 


STA 


VFO 


012/0622t 


H24/0STD 


STD 


VFO 


012/0625, 


H24/0STT 


STT 


VFO 


012/0630, 


H24/0STP 


STP 


VFD 


012/0634, 


H24/0SXA 


SXA 


VFD 


012/0640, 


H24/0SCH 


SCHA 


VFD 


012/0641, 


H24/0SCH 


SCHA 


VFD 


012/0700, 


H24/0CPY 


CPY 


VFD 


012/0734, 


H24/0PAX 


PAX 


VFD 


012/0737, 


H24/0PAC 


PAC 


VFD 


012/0754, 


H24/0PXA 


PXA 


VFO 


012/0760, 


H24/0PSE 


PSE 


VFD 


012/0761, 


H24/0N0P 


NOP 


VFD 


012/0762, 


H24/0RDS 


RDS 


VFO 


012/0763, 


H24/0LLS 


LLS 


VFD 


012/0764 


H24/0BSR 


BSR 


VFD 


012/0765, 


H24/0LRS 


LRS 


VFD 


012/0766, 


H24/0WRS 


WRS 


VFO 


012/0767, 


H24/0ALS 


ALS 


VFD 


012/0770, 


H24/0HEF 


WEF 


VFO 


012/0771 


H24/0ARS 


ARS 


VFD 


012/0772 


H24/0REW 


REM 


VFO 


012/0774, 


H24/0AXT 


AXT 


VFD 


012/0776 


H24/0SDN 


SON 


VFO 


012/4021 


ti24/0ENT 


ESNT 


VFD 


012/4022 
012/4024 


H24/0TRC 


TRCB 


VFD 


H24/0TRC 


TRCD 


VFD 


012/4030 


H24/0TEF 


TEFB 


VFD 


012/4031 


H24/0TEF 


TEFD 


VFD 


012/4042 


H24/0RIA 


RIA 


VFD 


012/4046 


H24/0PIA 


PIA 


VFD 


012/4051 


H24/0IIL 


IIL 


VFD 


012/4054 


H24/0LFT 


LFT 


VFO 


012/4055 


H24/0SIL 


SIL 


VFD 


012/4056 


H24/0LNT 


LNT 


VFD 


012/4C57 


,H24/0RIL 


RIL 


VFD 


012/4C60 


H24/0TCN 


TCNA 


VFD 


012/4C61 


H24/0TCN 


TCNB 


VFO 


012/4C62 


H24/0TCN 


TCNC 


VFD 


012/4C63 


.H24/0TCN 


TCNO 


VFO 


012/4100 


.H24/0TNZ 


TNZ 


VFD 


012/4114 


H24/0CAg 


CAQ 


VFD 


012/4120 


.H24/0TMI 


TMI 


VFD 


012/4130 


.H24/0XCL 


XCL 


VFO 


012/4140 


.H24/0TN0 


TNO 


VFO 


012/4154 


.H24/0CRQ 


CRQ 


VFD 


012/4200 


.H24/0MPR 


MPR 


VFD 


012/4260 


.H24/0UFM 


UFM 


VFO 


012/4300 


.H24/0UFA 


UFA 


VFD 


012/4302 


.H24/0UFS 


UFS 


VFD 


012/4304 


,H24/0UAM 


UAM 


VFD 


012/4306 


.H24/0USM 


USM 


VFO 


012/4320 


,H24/0ANA 


ANA 


VFD 


012/4340 


.H24/0LAS 


LAS 


VFD 


012/4400 


.H24/0SBM 


SBM 



TT)55850 
TT155860 
TT)55870 
TT155880 
TT155890 
TT155900 
TT)55910 
TT155920 
TT155930 
TT) 55940 
TT)55950 
TT155960 
TTI55970 
TT155980 
TT155990 
TTI56000 
TT156010 
TT 156020 
TT156030 
TT) 56040 
TT)56050 
TTI56060 
TT)56070 
TT156080 
TT 156090 
TTJ56100 
TT)56110 
TT156120 
TT156130 
TT)56140 
TT)56150 
TT156160 
TT)56170 
TT156180 
TT)56190 
TT156200 
TT156210 
TT156220 
TT156230 
TT156240 
TT 156250 
TT156260 
TT156270 
TT156280 
TTI56290 
TT 156 300 
TT156310 
TT156320 
TT156330 
TT156 340 
TT156350 
TT156360 
TT156370 
TT156380 
TT156390 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 

SECTION 5, SVCON, PMR, OCT, OCTAOR, AND TABBLK. 



02350 
02351 
02352 
02353 
02354 
02355 
02356 
02357 
02360 
02361 
02362 
02363 
02364 
02365 
02366 
02367 
02370 
02371 
02372 
02373 
02374 
02375 
02376 
02377 
02400 
02401 
02402 
02403 
02404 
02405 
02406 
02406 



450000232143 
450100465121 
452000457163 
453400436724 
453500432423 
454000512330 
454100512330 
454400432330 
454500432330 
456400434731 
460000626350 
460100625131 
460200465162 
460400624731 
462000624350 
462500626343 
463400626724 
464000622330 
464100622330 
470000232124 
473400472467 
473700472423 
475400476724 
476000446225 
476300432743 
476400226226 
476500432751 
477 200 516445 
477300515043 
477400216723 

77540 00022 



00240 



VFD 
VFO 
VFD 
VFO 
VFO 
VFD 
VFD 
VFO 
VFO 
VFO 
VFD 
VFO 
VFO 
VFD 
VFD 
VFD 
VFO 
VFD 
VFD 
VFD 
VFD 
VFO 
VFD 
VFO 
VFO 
VFO 
VFD 
VFD 
VFO 
VFO 
ENTBL BSS 
SIZE P2E 

NB 



012/4500, H24/0CAL CAL 

012/4501, H24/0ORA ORA 

012/4520, H24/0NZT NZT 

012/4534, H24/0LX0 LXD 

012/4535, H24/0LDC LCC 

012/4540, H24/0RCH RCHB 

012/4541, H24/0RCH RCHO 

012/4544, H24/0LCH LCHB 

012/4545, H24/0LCH LCHD 

012/4564, H24/0LPI LPI 

012/4600, H24/0ST0 STO 

012/4601, H24/0SRI SRI 

012/4602, H24/0ORS ORS 

012/4604, H24/0SPI SPI 

012/4620, H24/0SLQ SLQ 

012/4625, H24/0STL STL 

012/4634, H24/0SXD SXD 

012/4640, H24/0SCH SCHB 

012/4641, H24/0SCH SCHD 

012/4700, H24/0CA0 CAD 

012/4734, H24/0P0X PCX 

012/4737, H24/0PDC POC 

012/4754, H24/0PXD PXD 

012/4760, H24/0MSE MSE 

012/4763, H24/0LGL LGL 

012/4764, H24/0BSF BSF 

012/4765, H24/0LGR LGR 

012/4772, H24/0RUN RUN 

012/4773, H24/0R0L RQL 

012/4774, H24/0AXC AXC 

18,,-NUM 

ADCRESS OF SIZE IS (2»E+2 ), WHERE E IS A NUMBER SUCH THAT 
«2»»E).GE. (NUMBER OF ENTRIES IN TABLE ) .G. ( 2»«( E-l) > 
DECREMENT OF SIZE IS COMPLEMENT OF TABLE LENGTH. 



NUM 



EQU 



ENTBL-TABL 



NUMBER IN OP TABLE. 



TTI56400 
TT)56410 
TT) 56420 
TT)56430 
TT)56440 
TT) 56450 
TTI56460 
TT 156470 
TT156480 
TT) 56490 
TTI56500 
TT)56510 
TT156520 
TT)56530 
TT)56540 
TT) 56550 
TT)56560 
TT) 56570 
TT)565B0 
TT)56590 
TTI56600 
TT156610 
TT)56620 
TTI56630 
TT)56640 
TTI56650 
TT 156660 
TT 156670 
TT)56680 
TT) 56690 
TTJ56700 
TT)56710 
TT)56720 
TTI56730 
TTI56740 
TTI56750 
TT) 56760 
TT)56770 



TESTS I FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
SECTION 6, INPUT /OUTPUT SUBROUTINES. 



TTL 



SECTION 6, INPUT/OUTPUT SUBROUTINES. 
BUFFERED WOT, CALLING SEQUENCE, 



TSX $W0T,4 

PZE FIRST, T, LAST 



OR 



TSX $W0T,4 
PZE FIRST, T,N 



02407 


0634 00 4 02442 


WOT 


SXA 


WTX4.4 




02*10 


0060 00 02410 




TCOA 


ft 




02411 


-0760 00 01000 




ETTA 






02412 


0020 00 02452 




TRA 


ETA 




02413 


-0500 00 4 00001 




CAL 


1,4 




02414 


0625 00 02451 




STT 


WTTAG 




02415 


0734 00 4 00000 




PAX 


0,4 




02416 


-0634 00 4 02432 




SXD 


WTTXI, 4 




02417 


-0634 00 4 02422 




SXD 


WTTIX, 4 




02420 


-07 34 00 4 00000 




PDX 


0,4 




02421 


1 00001 4 02422 




TXI 


•+1,4,1 




02422 


2 00000 4 02424 


WTTIX 


TIX 


•+2,4,«« 




02423 


1 77777 4 02424 




TXI 


•+1,4,-1 




02424 


-3 00026 4 02426 




TXL 


•♦2,4,22 




02425 


0774 00 4 0O026 




AXT 


22,4 




02426 


-0634 00 4 02450 




SXO 


WTCOM, 4 




02427 


1 02715 4 02430 




TXI 


•+1,4, BUFF 




02430 


0634 00 4 02436 




SXA 


WTSLW.4 




02431 


-0534 00 4 02450 




LXD 


WTCOM, 4 




02432 


1 00000 4 02433 


WTTXI 


TXI 


•♦1,4, •• 




02433 


0634 00 4 02435 




SXA 


WTCAL, 4 




02434 


-0534 00 4 02450 




LXD 


WTCOM, 4 




02435 


-0500 00 4 00000 


WTCAL 


CAL 


••,4 




02436 


0602 00 4 00000 


WTSLH 


SLW 


••.4 




02437 


2 00001 4 02435 




TIX 


•-2,4,1 




02440 


0766 00 01203 




WTDA 


3 




02441 


0540 00 02450 




RCHA 


WTCOM 




02442 


0774 00 4 00000 


WTX4 


AXT 


••,4 




02443 


0520 00 02451 




ZET 


WTTAG 




02444 


0020 00 02520 




TRA 


PRINT 




02445 


0760 00 00165 




SWT 


5 




02446 


0020 00 4 00002 




TRA 


2,4 




02447 


0020 00 02520 




TRA 


PRINT 




02450 


00000 02715 


WTCOM 


IOCD 


BUFF.O," 




02451 


00000 00000 


WTTAG 


PZE 


0,0,0 




02452 


-0764 00 01202 


ETA 


BSFA 


2 




02453 


-0764 00 02204 




BSFB 


4 




02454 


-0764 00 02204 




BSFB 


4 




02455 


0774 00 1 00012 




AXT 


10,1 




02456 


0074 00 4 02407 




TSX 


WOT, 4 




02457 


00003 01077 




PZE 


ENDTP,0,3 




02460 


0074 00 4 02407 




TSX 


WOT, 4 




02461 


00001 03147 




PZE 


-H4 ,0i 


,1 


02462 


0770 00 01203 




WEFA 


3 





IF T IS NON-ZERO OR IF SW5 IS DOWN, PRINT ALSO. 
WRITES ONLY FIRST 22 WOROS ON TAPE. 



SAVE IR4. 

WAIT FOR OSC A. 

CHECK FCR EOT CHN A. 

EOT, EXIT. 

GET CONTROL WORD. 

SAVE TAG FOR DECISION TO PRINT. 

FIRST TC IR4. 

SAVE FOR BUFFERING. 

SAVE FOR FINDING N. 

N OR LAST TO IR4. 

PLUS 1. 

IS IT N OR LAST. 

N IN IR4. 

N .LE. 22. 

N = 22. 

SAVE FOR DSC COMMAND. 

FORM BUFF+N. 

SAVE FOR BUFFERING. 

N IN IR4. 

FORM FIRST+N. 

SAVE FOR BUFFERING. 

N IN IR4. 

MOVE TO BUFFER. 



SELECT OUTPUT TAPE. 

LOAO TO WRITE OUT BUFFER. 

RESTORE IR4. 

WAS THE TAG ZERO. 

NO, THEN PRINT ALSO. 

ZERO TAG, BUT CHECK SW5. 

UP, OON'T PRINT. 

DOWN, PRINT ALSO. 

OUTPUT COMMAND, N IN DECREMENT. 
STORAGE FOR TAG. 

ENO OF TAPE A3, SET FOR RESTART. 
REMOVE BINARY OUTPUT. 

10 CLOSE COMMENTS. 
CLOSE COMMENT. 

CHANNEL 4 SKIP. 

END OF FILE MARK. 



TT 160000 

TT163010 

TTI60020 

TT 160030 

TTI60040 

TT160050 

TT160060 

TTI60070 

TT 160080 

TT)60090 

TTI63100 

TTI60110 

TT160120 

TTI60130 

TTJ60140 

TT160150 

TT)60160 

TTI60170 

TTI60180 

TT160190 

TTI60200 

TTI60210 

TTI60220 

TTI60230 

TT)60240 

TT)60250 

TTI60260 

TT 160270 

TT160280 

TT)60290 

TTJ60 300 

TTI60310 

TTJ60320 

TT)60330 

TT)60340 

TT160350 

TT 160360 

TTJ60370 

TT)60380 

TT 160 390 

TT) 60400 

TT)60410 

TT160420 

TT160430 

TTI60440 

TTI60450 

TT 160460 

TT)60470 

TTJ60480 

TTI60490 

TTI60500 

TTI60510 

TTJ60520 

TT)60530 

TT)60 540 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
SECTION 6, INPUT/OUTPUT SUBROUTINES. 



02463 


2 00001 1 02456 


TIX 


•-5,1,1 


02464 


-0772 00 01203 


RUNA 


3 


02465 


0441 00 03125 


LOI 


•0 


02466 


0760 00 01000 


BTTA 




02467 


0761 00 00000 


NOP 




02470 


0074 00 4 02520 


TSX 


PRINT, 4 


02471 


-0 00022 02476 


MZE 


WE0TA3,0,18 


02472 


0760 00 01000 


BTTA 




02473 


0020 00 00765 


TRA 


OOOR 


02474 


-0764 00 01203 


BSFA 


3 


02475 


0020 00 02472 


TRA 


•-3 


02476 


002545246046 


WE0TA3 BCI 


9.0END OF Ti 


02477 


266063214725 






02500 


604421514260 






02501 


254523466445 






02502 


632551252460 






02503 


464560632147 






02504 


256021037360 






02505 


632147256023 






02506 


434662252433 






02507 


602330214527 


BCI 


9, CHANGE T< 


02510 


256063214725 






02511 


602145246047 






02512 


512562626062 






02513 


632151636063 






02514 


466051256263 






02515 


215163606330 






02516 


316260414622 






02517 


336060606060 







COUNT 10 TIMES. 
THEN RUN A3. 
CLEAR INDICATORS. 
TURN OFF BOT LIGHT. 

COMMENT, AND STOP. 



CHECK FCR BEGINNING OF TAPE. 
BOT, GO RESTART. 
NOT BOT, BACKSPACE TILL THERE. 
THEN TRY AGAIN. 

9.0END OF TAPE MARK ENCOUNTERED ON TAPE A3, TAPE CLOSED. 



9, CHANGE TAPE AND PRESS START TO RESTART THIS JOB. 



TTI60550 
TT)60560 
TTI60570 
TTJ60580 
TT)60 590 
TT 160600 
TT160610 
TT 160620 
TTJ60630 
TTJ60640 
TT 160650 
TT160660 
TT)60670 
TTI60680 



TTI60690 



SPACE 



BUFFERED PRINT, CALLING SEQUENCE, 

TSX SPRINT, 4 OR 
PRE FIRST, T, LAST 



TSX SPRINT, 4 
PRE FIRST, T,N 



02520 


06 34 


00 


4 


02642 


PRINT SXA 


PR4,4 


02521 


0634 


00 


2 


02643 


SXA 


PR2,2 


02522 


06 34 


00 


1 


02644 


SXA 


PR1.1 


C2523 


0600 


00 





00005 


STZ 


5 


02524 


-0061 


00 





02526 


TCNT 


• ♦2 


02525 


-0540 


00 





00261 


RCHT 


QUIT 


02526 


-0500 


00 


4 


00001 


CAL 


1,4 


02527 


0734 


00 


4 


00000 


PAX 


0,4 


02530 


-06 34 


00 


4 


02541 


SXD 


PTXI.4 



RECOGNIZES BLANK, 0, AND 1 AS CARRIAGE CONTROL (OTHER 
CARRIAGE CONTROLS DON'T WORK TOO WELL), OTHERWISE, 
SINGLE SPACE. PRINTS ONLY 20 WORDS, ANO T IS IGNORED. 
PRE=PZE, NORMAL RETURN (2,4), PRE»MZE, SPACE 0.1 PAGE, 
LIGHT UP CONSOLE, AND STOP (HPR -1,7,63). RESTART 
RETURNS (2,4). 

SAVE IRS. 



RESET INTERVAL TIMER. 
IF TAPE TIMER IN USE, 
RESET TAPE TIMER. 
GET CONTROL WORD. 
FIRST TO IR4. 
SAVE FOR PICKUP. 



TT 160 700 
TTJ60710 
TT)60720 
TT)60730 
TT160740 
TT)60750 
TT 160 760 
TT)60770 
TT 160780 
TTJ60790 
TT)60 800 
TTI60810 
TT 160820 
TT)60830 
TTJ60840 
TT160850 
TT I 60 860 
TT160870 
TT)60880 
TT)60890 
TT 160900 
TTJ60910 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
SECTION 6, INPUT/OUTPUT SUBROUTINES. 



02531 


-0634 


00 4 02534 


SXD 


• ♦3,4 


02532 


-07 34 


00 4 00000 


PDX 


0,4 


02533 


1 00001 4 02534 


TXI 


•♦1,4,1 


02534 


2 00000 4 02536 


TIX 


•+2,4,»« 


02535 


1 77777 4 02536 


TXI 


•♦1,4,-1 


02536 


-3 00024 4 02540 


TXL 


•+2,4,20 


C2537 


07 74 


00 4 00024 


AXT 


20,4 


02540 


0634 


00 4 02614 


SXA 


WDCNT.4 


02541 


1 00000 4 02542 


PTXI TXI 


•♦1,4,»» 


02542 


0634 


00 4 02616 


SXA 


L0Q.4 


02543 


05 34 


00 4 02614 


LXA 


W0CNT.4 


C2544 


0522 


00 02616 


XEC 


LDQ 


02545 


-07 54 


00 00000 


PXD 


0,C 


02546 


-0763 


00 00006 


LGL 


6 


02547 


-0340 


00 03126 


LAS 


= 1 


02550 


-0500 


00 03127 


CAL 


«2 


02551 


00 20 


00 02552 


TRA 


• ♦1 


02552 


07 37 


00 2 00000 


PAC 


0,2 


C2553 


-0500 


00 2 02660 


CAL 


SPRS.2 


02554 


0602 


00 02633 


SLW 


SPRA 


02555 


0774 


00 4 00005 


AXT 


5,4 


02556 


-0500 


00 03151 


CAL 


=02000000COC 


02557 


0774 


00 1 00030 


HRI AXT 


24,1 


02560 


0600 


00 1 02715 


STZ 


CAROIM+24,1 


C2561 


0600 


00 1 02716 


STZ 


CARDIM+25,1 


02562 


2 00002 1 02560 


TIX 


•-2,1,2 


02563 


0774 


00 2 00001 


AXT 
SPACE 


1,2 

2 


02564 


0602 


00 02657 


PRLP SLW 


PRCOL 


02565 


-07 54 


00 00000 


PXD 


0,0 


02566 


-0763 


00 00006 


LGL 


6 


02567 


0767 


00 00001 


ALS 


1 


02570 


0734 


00 1 00000 


PAX 


0,1 


02571 


-0500 


00 02657 


CAL 


PRCOL 


02572 


-3 00037 1 02606 


ZONE TXL 


DIG, 1,31 


02573 


-3 00137 1 02575 


TXL 


•+2,1,95 


02574 


-3 00140 I 02612 


TXL 


RLOOP.1,96 


02575 


3 00077 1 02600 


TXH 


•♦3,1,63 


02576 


-0602 


00 2 02714 


ORS 


CARDIM+23,2 


02577 


I 77740 1 02605 


TXI 


TZEOG, 1,-32 


02600 


3 00137 1 02603 


TXH 


•+3,1,95 


C2601 


-0602 


00 2 02712 


ORS 


CAROIM+21,2 


02602 


1 77700 1 02605 


TXI 


TZEDG, 1,-64 


02603 


-0602 


00 2 02710 


ORS 


CARDIM+19,2 


02604 


1 77640 1 02605 


TXI 


•♦1,1,-96 


02605 


-3 00000 I 02612 


TZEOG TXL 


RLGOP.1,0 


02606 


-3 00022 1 02611 


CIG TXL 


•♦3,1,18 


02607 


-0602 


00 2 02670 


ORS 


CARDIM+3,2 


02610 


1 77760 1 02611 


TXI 


•♦1,1,-16 



SAVE FOR FINDING N. 

N OR LAST TO IR4. 

PLUS 1. 

IS IT N OR LAST. 

N IN IR4. 

IS N .LE. 20. 

N = 20. 

SAVE WDCNT. 

COMPUTE LAST+1. 

INSERT IN PICKUP. 

N IN IR4. 

PICKUP FIRST WORD. 

GET FIRST CHARACTER, 

FOR CARRIAGE CONTROL. 

COMPARE WITH I. 

C.C. .G. 1, SINGLE SPACE. 

C.C. .E. 1, NEW PAGE. 

C.C. .E. 0, DOUBLE SPACE. 

PICKUP SPR, 

AND INSERT AFTER SELECT. 

SET FOR FIVE CHARACTERS, FIRST WORD. 
COLUMN MARK, SKIP 1ST COLUMN. 

CLEAR CARD IMAGE. 



SET MARK FOR LEFT HALF. 



SAVE COLUMN MARKER. 
GET NEXT CHARACTER. 

• • 

00U8LE IT, 

AND PLACE IN IR1. 

GET COLUMN MARKER. 

IF NO ZONE, SKIP. 
IGNORE BLANK. 

CHECK FOR 12 ZONE. 

YES, OR IT IN. 

REMOVE ZONE, AND CHECK DIGIT. 

CHECK FCR 11 ZONE. 

YES, OR IT IN. 

REMOVE ZONE AND CHECK DIGIT. 

OR IN ZONE. 

REMOVE ZONE, AND CHECK DIGIT. 

IGNORE DIGIT WITH A ZONE. 

CHECK FOR (8-N) CHARACTER. 
YES, OR IN 8. 
REMOVE 8. 



TT)60920 
TT)60930 
TT160940 
TTJ60950 
TTJ60960 
TT160970 
TTI60980 
TT 160990 
TT161000 
TT161010 
TTI61020 
TT)61030 
TT161040 
TT161050 
TT161060 
TTI61070 
TT)61080 
TTI61090 
TT161100 
TTI61110 
TT161120 
TTI61130 
TTI61140 
TTI61150 
TT161160 
TTI61170 
TTI61180 
TTI61190 
TT161200 



TTI61210 
TTI61220 
TT)61230 
TTI61240 
TT»61250 
TT161260 
TU61270 
TT)61280 
TT)61290 
TT)61300 
TT161310 
TTI61320 
TTI61330 
TT 161340 
TTI61350 
TTI61360 
TT161370 
TT161380 
TT161390 
TT161400 
TTJ61410 
TTI61420 
TT161430 
TTI61440 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
SECTION 6. INPUT/OUTPUT SUBROUTINES. 



02611 -0602 00 3 02710 



ORS 



CARDIM*19,3 OR IN DIGIT. 



02612 


0771 


00 





00001 


RLOOP 


ARS 


1 


02613 


2 00001 


4 


02564 




TIX 


PRLP|4,1 


02614 


0774 


00 


4 


00000 


HDCNT 


AXT 


• *,4 


02615 


-2 00001 


4 


02625 




TNX 


PN0W,4,1 


02616 


0560 


00 


4 


00000 


LOQ 


LDQ 


••,4 


02617 


0634 


00 


4 


02614 




SXA 


WDCNT.4 


02620 


0774 


00 


4 


00006 




AXT 


6,4 


02621 


-0100 


00 





02564 




TNZ 


PRLP 


02622 


-3 00000 


2 


02625 




TXL 


PNOW, 2,0 


02623 


-0500 


00 





03153 




CAL 


'0400000000000 


02624 


1 77777 


2 


02564 




TXI 


PRLP,2i-l 


02625 


0774 


00 


1 


00030 


PNOW 


AXT 


24,1 


02626 


0060 


00 





02626 




TCOA 


• ! 


02627 


-0500 


00 


1 


02715 




CAL 


CARDIM+24,1 


02630 


0602 


00 


1 


02745 




SLW 


BUFF+24,1 


02631 


2 00001 


1 


02627 




TIX 


•-2,1,1 


02632 


0766 


00 





01361 




WPRA 




02633 


0000 


60 





02633 


SPRA 


HTR« 


• 


02634 


0540 


00 





02664 




RCHA 


PRCOM 


02635 


-3 00001 


4 


02642 




TXL 


PR4.4.1 1 


02636 


-05 00 


00 





02663 




CAL 


NOSPC I 


02637 


0602 


00 





02633 




SLW 


SPRA 


02640 


-05 00 


00 





03153 




CAL 


=0400000000000 


02641 


0020 


00 





02557 




TRA 


HRI I 


02642 


0774 


00 


4 


00000 


PR4 


AXT 


• •,4 1 


02643 


0774 


00 


2 


00000 


PR2 


AXT 


•»,2 


02644 


0774 


00 


I 


00000 


PR1 


AXT 


• •.1 


02645 


0500 


00 


4 


00001 




CLA 


1.4 1 


02646 


0120 


00 


4 


00002 




TPL 


2,4 


02647 


0766 


00 





01361 




WPRA 




02650 


0760 


00 





01364 




SPRA 


4 


02651 


0760 


00 





01363 




SPRA 


3 


02652 


0502 


00 





03125 




CLS 


=0 


02653 


0760 


00 





00006 




COM 




02654 


0560 


00 





03166 




LDQ 


=0777777777777 


02655 


0420 


00 


7 


77777 




HPR 


-1,7 '. 


02656 


0020 


00 


4 


00002 




TRA 


2,4 / 
STORAGE AND COI 


02657 


0000 





00000 


PRCOL 


PZE 


I 


02660 


0760 


00 





01364 


SPRS 


SPRA 


4 ( 


02661 


0760 


00 





01361 




SPRA 


1 1 


02662 


0761 


00 





00000 




NOP 


( 


02663 


0760 


00 





01371 


NOSPC 


SPRA 


9 1 


02664 


00030 





02715 


PRCOM 


IOCD 


BUFF, 0,24 1 










02520 


NPRINT 


SYN 


PRINT 1 



SHIFT COLUMN MARKER. 

COUNT CHARACTERS PER WORD. 

THIS WORD DONE, RESTORE WORD COUNT. 

INDEX, AND EXIT WHEN COUNT EXHAUSTED. 

PICKUP NEXT WORD. 

SAVE WORD COUNT. 

RESTORE CHARACTER COUNT. 

RETURN IF MORE TO THIS HALF. 

IF RIGHT HALF OONE, GO PRINT. 

SET COLUMN MARKER. 
SET IR2 FOR RIGHT HALF AND RETURN. 

MOVE CAKDIM TO BUFF, 
WHEN DSCA IS FREE. 



SELECT PRINTER, 

SPACE CARRIAGE. 

AND LOAD WITH THIS LINE. 

CIIR4) .IE. 1 IFF WDCNT EXHAUSTED. 

MORE TO DO, SET SPR. 

GET COLUMN MARKER. 
GO BACK AND DO IT AGAIN. 

RESTORE IRS. 



GET CONTROL WORD AGAIN. 
IF PLUS, NORMAL EXIT. 

STOP COMMAND, SPACE PRINTER. 

SET S BIT TO ONE. 
SET AC TO ALL ONES. 
LIGHT UP MO. 

STOP 

AND RETURN... 



COLUMN MARKER STCRAGE. 
CARRIAGE CONTROL, 
MAINTAIN THIS I 
ORDER. 2 

RIGHT HALF SPRA. 
PRINT COMMAND. 

EXTERNAL NAME FOR PRINT. 



TT161450 
TT 161460 
TTJ61470 
TTI61480 
TT161490 
TTJ61500 
TTJ61510 
TTI61520 
TTI61530 
TTI61540 
TT)61550 
TTI61560 
TT)61570 
TTI61580 
TTI61590 
TT161600 
TT)61610 
TTI61620 
TTJ61630 
TTJ61640 
TTI61650 
TT)61660 
TT161670 
TTI61680 
TT)61690 
TT)61700 
TTV61710 
TTI61720 
TTJ61730 
TT)61740 
TT)61750 
TTI61760 
TT 161770 
TT1617B0 
TTJ61790 
TTI61800 
TTI61B10 
TTI61820 
TTI61830 
TTI61840 
TT)61850 
TT161860 
TTI61870 
TTI61880 
TT)61890 
TTI61900 
TT)61910 
TT)61920 
TTI61930 
TT)61940 
TT)61950 
TT 161960 
TT161970 
TT)61980 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
SECTION 6, INPUT/OUTPUT SUBROUTINES. 



SPACE 



STORAGE AREA. 



02665 




CARCIM 


BSS 


24 


02715 




BUFF 


ess 


24 


02745 




OUT 


BSS 


22 




00036 


NSYM 


EOU 


30 


02773 




NAME 


BSS 


NSYM 


03031 




ORIGIN 


BSS 


NSYM 


03067 




ENTRY 


BSS 

END 


NSYM 


LITERALS 








03125 


000000000000 








03126 


000000000001 








03127 


000000000002 








03130 


000000000003 








03131 


000000000005 








03132 


000000000006 








03133 


000000000012 








03134 


0000000C0072 








03135 


000000000073 








03136 


000000000454 








03137 


000000602646 








03140 


000000777777 








03141 


000017000000 








03142 


004623632143 








03143 


006060606060 








03144 


007070707600 








C3145 


014623632143 








03146 


016060606060 








03147 


046060606060 








03150 


070707070777 








03151 


200000 OOOOOO 








03152 


377700000000 








03153 


400000000000 








03154 


462660000000 








03155 


600073C07300 








03156 


606000000060 








03157 


606060604000 








03160 


606060606060 








03161 


632562636260 








03162 


700000000000 








03163 


744421314534 








03164 


777400 777777 








03165 


777700000000 








03166 


777777777777 









CARD IMAGE BUFFER FOR PRINT. 

OUTPUT BUFFER FOR WOT. 

OUTPUT BUFFER FOR POST MORTEM. 

30 NAMES ALLOWED IN MOVIE). 
SUBROUTINE NAME TABLE. 
SUBROUTINE ORIGIN TABLE. 
SUBROUTINE ENTRY POINT TABLE. 



TT)61990 
TT) 62000 
TT162010 
TTJ62020 
TT 162030 
TT)62040 
TTI62050 
TT) 62060 
TT162070 
TT)620B0 
TTJ62090 
TT)62100 
TT)62110 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
POST PROCESSOR ASSEMBLY DATA 

3167 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 



REFERENCES 

2223 

1170 

1171 

1653 

2132 

2131 

2 

2606 

2020 

2017 

2016 

2452 

1776 

2557 

2023 

1164 

1165 

1166 

2616 

52 

240 

1260 

234 

2745 

1503 

1401 

1750 

2644 

2643 

2642 

2134 

1740 

1 

533 

473 

1145 

235 

425 

250 

2407 



702 

2715 

1445 

167 

170 

171 

172 

1523 

765 

1026 



TO OEFI 
T 
AC 
MO 
ADR 
AR1 
AR2 
CAP 
DIG 
DX1 
0X2 
DX4 
ETA 
FIN 
HRI 
ILC 
IR1 
IR2 
IR4 
LDO 
MAP 
NUM 
OCT 
ORG 
OUT 
PMH 
PKR 
PPM 
PR1 
PR2 
PR4 
PRE 
REG 
RIP 
SLR 
SSI 
SX4 
TIT 
TR8 
WEP 
WOT 



BACK 
BUFF 
C001 
C( 1) 
C(2) 
C<7> 
C<8) 
DCON 
DOOR 
EPMR 



NEO SY 
136, 
1157, 
1156, 
1737 
2050 
2047, 

215 
2572 
1642 
1641 
1640 
2412 
1746 
2641 
1645, 
1154, 
1155, 
220, 
2542, 



MBOLS 

175, 204, 205, 704, 705, 710, 1147, 1150, 2524, 2525 
1535 
1541 



2124 



1653, 1734, 1736, 1772, 1774 

1551 

1554 

263, 315, 426, 432, 525, 534, 630, 1145, 1557 
2544 



2062, 2406, 24C7 

1301, 1536, 1542, 1546, 1715, 1743 

214, 1464 

1656, 1741, 1744, 1745, 1757, 1761, 1762, 1771, 2000, 2001, 2002, 2013, 2015 

1424, 1427, 1441, 1443, 1461 

712, 713 

2522 

2521 

2520, 2635 

2055, 2056 

1652, 1661, 1674 

201 

173 

406, 416, 



433 



202, 

405 

226, 

67, 

645, 

1600, 

233, 

2427, 

1414, 

27 

31 

33 

35 

1411 

722, 

300, 



707 



230, 232 

71, 121, 
714, 745, 747, 753, 755, 1401, 1442, 1462, 1470, 1562, 1564, 1566, 1570, 1572J 1574^ 1576 

1730, 1732, 1760, 2014, 2456, 2460 



131, 134, 175, 177, 231, 276, 344, 361, 



440, 



445, 451, 467, 565, 600 



301, 347, 364, 
2450, 2630, 2664 
1417 



472, 570, 603, 650 



743, 1001, 1023, 2473 
346, 363, 471, 567, 



602, 647, 711 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
POST PROCESSOR ASSEMBLY DATA 



213 
175 
131 
236 
732 
431 
404 
207 
1024 
556 
2136 
663 
1447 
102 
2773 
2025 
36 
1260 
4 
1510 
2625 
2564 
2541 
261 
610 
361 
1167 
2406 
1412 
541 
453 
2633 
2660 
73 
723 
314 
1172 
2146 
241 
237 
524 
133 
477 
503 
2027 
2442 
510 
350 
2572 
742 
1256 
1250 
173 
174 
1602 



ESTM 
EVAL 
EXCM 
EXEC 
FILE 
FPER 
FPTR 
ITIM 
LOAO 
LOOP 
LSTA 
LSTM 
LSUB 
MORG 
NAME 
NREP 
NSYM 
OCT) 
PCT1 
PMBP 
PNOW 
PRLP 
PTXI 
QUIT 
SADR 
SECR 
SIND 
SUE 
SLPM 
SLR1 
SPER 
SPRA 
SPRS 
SRCH 
STOP 
STRR 
SVPO 
TABL 
TCAP 
T IME 
TIMR 
TMAP 
WACO 
WMOO 
WREP 
WTX4 
XFPT 
XSTR 
ZONE 
CLOSE 
COMRT 
COMSW 
C( 13) 
CIST) 
DCNX4 



206 
137, 
127 
216, 
724 
411 
172 
203 
1006 

2123 
706, 
133 

60, 
111, 
1675, 
66, 
1301 
1410 
1463 
2615, 
2613, 
2 530 
672, 
332, 
266, 
1162, 
2060 
1447 
333, 
442, 
2554, 
2553 
55, 

170 
1161, 
2063, 
176 
205 
171 
126 
446 
452 
1710, 
2407 
460, 
341, 

733 

1233, 

L234, 

37 

41 

1523 



140 



222 



770, 1152 



62, 

123, 

1676, 

103, 



2622 
2621, 

705, 
531, 
320, 
1545 



532 

450 

2637 



64, 
1420 
1735 
105, 



2624 

1150, 
540, 
430, 



75, 



111. 



100 



113, 116, 123, 1412, 1413, 1415, 1420, 2773, 3031, 3067, 3125 



2525 
541, 
530, 



544, 
537 



546, 547, 556, 571 



56, lOli 



130 



1524 
2125, 



24C7 



1713, 1716, 1717, 1727, 1731 



466, 
343, 



1241 
1235, 



470 
345 



1253 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
POST PROCESSOR ASSEMBLY DATA 



2026 
1002 
1517 
1027 
1077 
2406 
3067 

714 

627 
1660 
1657 
2116 
2024 
2663 
2135 
2125 
2022 
3 
2657 
2664 
2520 
1474 

571 
2115 
2612 

673 
1113 

677 
2062 

2066 
1146 

701 

262 
2117 
2605 
2614 

474 
2435 
2450 
2436 
2451 
2422 
2432 
1045 

651 

611 
1126 

365 
1031 

302 
1301 



DNREP 
000R1 
ENDPM 
ENORN 
ENDTP 
ENTBL 
ENTRY 
FINIS 
IOTMR 
L00P1 
LO0P2 
LOWER 
LWORD 
NOSPC 
OPBIN 
OPFNO 
PMCNT 
PPROG 
PRCOL 
PRCOM 
PRINT 
PROER 
PSTOP 
RAISE 
RLOCP 
RLSTM 
SEXIT 
SLSTM 
SRCH1 

SRCH2 
SVCCN 
TLSTM 
TRA'PR 
TYPEA 
TZECG 
WDCNT 
UDVER 
HTCAL 
WTCOM 
WTSLW 
WTTAG 
WTTIX 
WTTXI 
XFILE 
X1080 
XL OOP 
XRCA1 
XSECR 
XSTOP 
XTRAP 
BCOTAB 



1677, 

776, 

1471 

715 

746, 

24C7 

105, 
1473 
174 
1650, 
1775 
2061, 
1662, 
2636 
2054, 
2053, 
1431, 
1407 
2564, 
2634 

725, 
14C2 

543, 
2066 
2574, 

7C1 
1000 

663, 
2071, 
2112 
2062 
221, 
667 
167 
2057, 
2577, 
2540, 

441 
2433 
2426, 
2430 
2414, 
2417 
2416 
736 
642, 
562, 
1022 
362 
726 
273, 
1301, 
1322, 
1343, 
1364, 



1704, 1706 
1020 

2457 
116 

1651, 1747 

2070 

1711, 1714 

2065, 2117 

2067 

1440, 1451, 1460, 1721, 1726, 1751, 1756, 2005, 2012 

2571 

735, 763, 777, 1021, 2444, 2447, 2470, 2665 

554 
2605 

666, 673, 675 
2072, 2073, 2074, 2075, 2076, 2077, 2100, 2101, 2102, 2103, 2104, 2105, 2106, 2107. 2110, 2111 

264, 316, 427, 434, 526, 535, 631 

2113, 2114 

2602 

2543, 2617 

2431, 2434, 2441 
2443 



644, 
564, 



646 
566 



275, 277 

1302. 1303, 1304, 1305, 1306, 1307, 1310, 1311, 1312, 1313, 1314, 1315, 1316, 1317, 1320, 1321 

1323, 1324, 1325, 1326, 1327, 1330, 1331, 1332, 1333, 1334, 1335, 1336, 1337, 1340, 1341, 1342 

1344, 1345, 1346, 1347, 1350, 1351. 1352, 1353, 1354, 1355, 1356, 1357, 1360, 1361, 1362, 1363 

1365, 1366, 1367, 1370, 1371, 1372, 1373, 1374, 1375, 1376, 1377, 1400 



TESTS) FOR CAP, MONITOR FOR CLASS ASSEMBLY PROGRAM. 
POST PROCESSOR ASSEMBLY OATA 

2665 CARDIM 2560, 2561, 2576, 2601, 2603, 2607, 2611, 2627 

1233 COMACR 

1604 HEAD01 1563 

1610 HEAD02 1534, 1565 

1613 HEA003 1537, 1540, 1567 

1617 HEAD04 1543, 1544, 1571 

1623 HEA005 1547, 1550, 1573 

1627 HEAD06 1553, 1575 

1632 HEAD07 1556, 1577 

1635 HEAD08 1561, 1601 

MOVIE) 52, 54 

2520 NPRINT 2665 

1173 OCTADR 114, 117, 223, 270, 336, 464, 557, 572, 637, 1552, 1555, 1560, 1654 

1640 OCTDMP 1444, 1466 

3031 ORIGIN 103, 113, 1413, 1415 

604 PSTOPS 552 

1102 RENDTP 754 

1207 TABBLK 1203, 1207, 1210, 1211, 1212, 1213, 1214, 1215, 1216, 1217, 1220, 1221, 1222, 1223, 1224, 1225, 1226 
1227, 1230, 1231, 1232, 1707, 1767 

7 TESTS) 

2476 WE0TA3 2471 

1061 XCLOSE 764 

141 XMAP01 70 

147 XMAP02 72 

153 XMAP03 112, 115, 120, 122 

157 XMAP04 132 

163 XMAP05 135 

621 XPSTOP 575, 577, 601 

2047 (OPCD) 1712, 1740 

NO ERROR IN ABOVE ASSEMBLY. 

•TIME SPENT IN FAP.. 000054 IN HUNDREDTHS OF MINUTES. 



BUFFERED INPUT/OUTPUT PROGRAMS FOR CAP. 





PCC 






COUNT 


278 




LBL 


RIP 


00012 


ENTRY 


RIP 


00071 


ENTRY 


WCT1 


00147 


ENTRY 


REWIND 


00157 


ENTRY 


READ2 


00243 


ENTRY 


PRINT 


00277 


ENTRY 


PPROG 


00347 


ENTRY 


PCT1 


00027 


ENTRY 


READ1 



TRANSFER VECTOR 




COOOO 


475146276060 


PROG 


00001 


626704606060 


SX4 


00002 


626523464560 


SVCON 


00003 


664663606060 


HOT 


00004 


254744516060 


EPMR 


C0005 


222123426060 


BACK 


00006 


436263446060 


LSTM 


00007 


222324632122 


BCDTAB 



LINKAGE DIRECTOR 
00010 000000000000 
C0011 513147606060 



BINARY CARD LABEL. 
SETUP READ OPERATIONS. 
WR I TE-CCLL AT ION-TAPE- 1. 
REWIND COLLATION TAPE. 
READ COLLATION TAPE. 
BUFFERRED PRINT PROGRAM. 
DUMP SYMBOLIC PROGRAM. 
DUMP COLLATION TAPE. 
READ INPUT TAPE. 



RIP SETS UP READ1 AND PPROG. 



RIP00010 
RIP00020 
RIP00030 
RIP00050 
RIP00060 
RIP00070 
RIP00080 
RIP00090 
RIP00100 
RIP00110 
Rl POO 120 
RIP00130 
RIP00140 
RIP00150 



C0012 


0634 00 


4 


00122 RIP SXA 


RX4.4 


00013 


-0500 60 





00000 


CAL» 


*PROG 


00014 


-0734 00 


4 


ooooo 


PDX 


0,4 


C0015 


-3 04064 


4 


00017 


TXL 


•+2.4.LPRCG 


00016 


0774 00 


4 


04064 


AXT 


LPR0G.4 


00017 


0754 00 


4 


OOOOO 


PXA 


0,4 


00020 


0361 60 





OOOOO 


ACL* 


tPROG 


00021 


0621 00 





00040 


ST A 


PEND 


C0022 


0621 00 





00312 


STA 


PPENO 


00023 


0634 00 


4 


00037 


SXA 


PLTH.4 


00024 


0634 00 


4 


00310 


SXA 


PPLTH.4 


C0025 


0534 00 


4 


00122 


LXA 


RX4.4 


00026 


0020 00 


4 


00001 


TRA 


1.4 



SAVE IR4. 

GET CONTROL WORD. 

COUNT TC IR4. 

MAXIMUM NUMBER OF CARDS IN PROG. 

COUNT TO A(AC). 
GET END ADDRESS. 
SAVE IN READ1. 
SAVE IN PPROG. 
SAVE IN READ1. 
SAVE IN PPROG. 
RESTORE IR4. 
RETURN. 



RIP00160 
R I POO 170 
RIP00180 
RIP00190 
RIP00200 
RIP00210 
RIP00220 
RIP00230 
RIP00240 
RIP00250 
RIP00260 
RIPO0270 
RIP00280 



SPACE 



00027 


0520 


CO 





00057 


REAC1 


ZET 


TECFI 


00030 


0020 


00 





00051 




TRA 


EOFI 


00031 


0634 


00 


4 


00122 




SXA 


RX4.4 


00032 


0634 


00 


2 


00123 




SXA 


RX2.2 


00033 


-0500 


00 


4 


00001 




CAL 


1.4 


00034 


0361 


00 





10611 




ACL 


= 14 


000 35 


0621 


00 





00041 




STA 


SLW1 


00036 


0774 


00 


4 


00016 




AXT 


14.4 


00037 


0774 


00 


2 


OOOOO 


PLTH 


AXT 


••.2 



REA01 TAKES NEXT 14 WORDS OF PROG AND STORES IN BUFF. 



CHECK FOR END OF PROGRAM. 
END REACHED, COMMENT. 
SAVE IRS. 

GET CONTROL WORD. 

COMPUTE BUFFER+14. 

INSERT. 

SET WORD COUNT. 

SET PROGRAM INDEX. 



RIP00290 
RIP00300 
R I POO 3 10 
R I POO 320 
RIP00330 
RIP00340 
RIP00350 
RIP00360 
RIP00370 
RIP00380 
R I POO 390 
RIP00400 



BUFFERED INPUT/OUTPUT PROGRAMS FOR CAP. 



00040 
0004 1 
00042 
000 4 3 
00044 
00045 
00046 
00047 
000 50 

00051 
000 52 
00053 
00054 
00055 
00056 

00057 
00060 
00061 
00062 
0006 3 
00064 
00065 
000 66 
00067 
00070 



-0500 00 
0602 00 
2 00001 

-0625 00 
2 00001 
0634 00 
0534 00 
0534 00 
0020 00 

0522 60 
0074 00 
0074 00 
00011 
-0625 60 
0020 60 



2 00000 
4 00000 
2 00044 
00057 
4 00040 
2 00037 
4 00122 
2 00123 
4 00002 



00001 
00002 
00003 
00060 
00004 
00005 



OOOOO 00000 

002545246046 

266026314325 

605125212330 

252460 663031 

432560512521 

243145276023 

214760314547 

646360632147 

25 3360606060 



PENC 
SLM1 



CAL 
SLW 
TIX 
STL 
TIX 
SXA 
LXA 
LXA 
TRA 

XEO 

TSX 

TSX 

PZE 

STL» 

TRA* 



TEOFI PZE 
UEOFI BCI 



EOF I 



••.2 

• »i 4 

•♦2,2,1 

TECFI 

PEND.4,1 

PLTH.2 

RX4.4 

RX2.2 

2.4 

$SX4 

*SVC0N,4 

SWOT, 4 

WEOFI.0,9 

iEPHR 

SBACK 



COPY CARD INTO BUFFER. 

IF END CF PROG, SET TEOFI. 

« • 

COUNT WORDS. 

SAVE PROGRAM INDEX. 

RESTORE IRS. 

RETURN. 

SAVE IR4. 
SAVE CONSOLE. 
COMMENT, EOF ON INPUT. 

SET ERROR INDICATOR. 
EXIT TO POST MORTE*. 



END OF FILE MARK ON INPUT TAPE. 
9.0ENO OF FILE REACHED WHILE READING CAP INPUT TAPE. 



R I POO 410 
RIP00420 
RIP00430 
RIP00440 
RIP00450 
RIP00460 
RIP00470 
RIP00480 
R I POO 490 
RIP00 500 
RIP00510 
R I POO 520 
R I POO 530 
RIP00540 
RIP00550 
RIP00560 
R I POO 570 
RIP00580 
RIP00590 



SPACE 



00071 


0520 00 





00135 WCTl ZET 


TECTC 


00072 


0020 00 





00126 


TRA 


EOTC 


00073 


0634 00 


4 


00122 


SXA 


RX4,4 


00074 


0634 00 


2 


00123 


SXA 


RX2,2 


00075 


0634 00 


1 


00124 


SXA 


RX1.1 


00076 


-0500 00 


4 


00001 


CAL 


1.4 


00077 


0625 00 


C 


00134 


STT 


TAG 


00100 


0771 00 





00022 


ARS 


18 


00101 


-0520 00 





00134 


NZT 


TAG 


00102 


-0500 00 





10611 


CAL 


•14 


0010 3 


0734 00 


2 


OOOOO 


PAX 


0.2 


00104 


1 0C001 


2 


00105 


TXI 


•♦1,2,1 


00105 


0754 00 


2 


OOOOO 


PXA 


0,2 


00106 


0361 00 


4 


00001 


ACL 


1.4 


00107 


0621 00 





00112 


STA 


WCAL 


00110 


0774 00 


4 


00016 


AXT 


14,4 


00111 


0774 00 


1 


10150 WLCT AXT 


LCT1.1 


00112 


-0500 00 


2 


OOOOO WCAL CAL 


••.2 


00113 


2 00001 


2 


00115 


TIX 


•♦2.2,1 


00114 


-0500 00 





10614 


CAL 


■H 



WCTl TAKES 14 WORDS AND WRITES THEM ON COLLATION 
TAPE BUFFER. IF TAG OF CONTROL WORD IS NON-ZERO, 
THEN N (IN DECREMENT OF CONTROL WORD) WORDS 
OF BUFFER AND 14-N BLANK WORDS GO TO COLLATION 
TAPE BUFFER. 



CHECK FOR EOT ON CT1. 
EOT REACHEO, COMMENT. 
SAVE IRS. 



GET CONTROL WORD. 

SAVE TAG. 

D(AC) TO A(AC>. 

IF TAG-O, A(AC)*14. 

COUNT IS 14. 

COUNT TC IR2. 

RAISE COUNT FOR TEST. 

PLACE IN A(AC). 

COMPUTE, BUFFER+COUNm. 

INSERT. 

SET RECORD COUNT. 

MAXIMUM NUMBER OF RECORDS ON CT1. 

MOVE BUFFER TO CT1. 

COUNT BUFFER. 

BLANKS IF BUFFER DONE. 



RIP00600 
RIP00610 
RIP00620 
R I POO 630 
R I POO 640 
RIP00650 
RIP00660 
R I POO 670 
RIP00680 
RIP00690 
RIP00700 
RIP00710 
RIP00720 
RIP00730 
RIP00740 
RIP00750 
RIP00760 
RIP00770 
RIP00780 
R I POO 790 
RIP00800 
RIP00810 
RIP00820 
RIP00830 
R I POO 840 
RIP00850 
R I POO 860 



BUFFEREC INPUT/OUTPUT PROGRAMS FOR CAP. 



00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 

00126 
00127 
00130 
00131 
00132 
00133 

00134 
00135 
00136 
00137 
00140 
00141 
00142 
C0143 
00144 
00145 
00146 



0602 00 
2 00001 
-0625 00 
2 00001 
0634 00 
0774 00 
0774 00 
0774 00 
0020 00 



0522 60 
0074 00 
0074 00 
00011 
-0625 60 
0020 60 



10571 
00120 
00135 
00112 
00111 
00000 
00000 
00000 
00002 

00001 
00002 
00003 
00136 
00004 
00005 



00000 00000 

00000 00000 

002545246046 

266C63214725 

605125212330 

252460663C31 

432560665131 

633145276023 

214760234643 

432163314645 

606321472533 



SLW 
TIX 
STL 
TIX 
SXA 
AXT 
AXT 
AXT 
TRA 

XEC* 

TSX 

TSX 

PZE 

STL» 

TRA* 



TAG PZE 
TEOTC PZE 
WEOTC BCI 



RX4 
RX2 
RX1 



EOTC 



CT1.1 

•♦2. If 1 

TEOTC 

WCAL.4,1 

WLCT.l 

•••4 

»*i2 

••,1 

2,4 

$SX4 
*SVC0N,4 

SWOT, 4 
WEOTC, 0,9 
SEPMR 
S8ACK 



WCT. 

COUNT WORDS CT1. 
END OF CT1, SET TEOTC. 
COUNT WORDS IN RECORD- 
SAVE CT1 INDEX. 
RESTORE IRS. 



RETURN. 

SAVE IR4. 
SAVE CONSOLE. 
COMMENT, EOT CTl. 

SET ERROR INDICATOR. 
EXIT TO POST MORTEM. 



CONTROL WORD FOR WCT1. 
END OF TAPE MARK ON COLLATION TAPE. 
9.0END OF TAPE REACHED WHILE WRITING CAP COLLATION TAPE. 



R I POO 870 
RIP00880 
RIP00890 
RIP00900 
RIP00910 
RIP00920 
RIP00930 
RIP00 940 
RIP00950 
RIP00960 
RIP03970 
RIP00980 
RIP00990 
RIP01000 
RIP01010 
RIP01020 
RIP01030 
RIP01040 
RIP01050 
RIP01060 



SPACE 



00147 


-0625 


00 





00156 


REWIND STL 


TREW 


00150 


-0500 


00 





00111 


CAL 


WLCT 


C0151 


0767 


00 





00022 


ALS 


18 


00152 


0622 


00 





00175 


STD 


TLCT 


00153 


0622 


00 





004C3 


STD 


PTLCT 


00154 


0140 


00 





00155 


TOV 


• + 1 


00155 


0020 


00 


4 


00001 


TRA 


1,4 



REWIND SETS UP READ2 AND PCT1. REA02 AND 
PCT1 CHECK THAT REWIND HAS BEEN CALLED. 



CTl REWOUND. 

GET CTl INDEX IN A(AC), 

PLACE IN D(AC). 

SAVE IN READ2. 

SAVE IN PCT1. 

TURN OFF ACOVL. 

RETURN. 



00156 00000 00000 



TREW PZE 



BEGINNING OF TAPE MARK ON COLLATION TAPE. 



RIP01070 
RIP01080 
RIP01090 
RIP01100 
RIP01110 
RIP0U20 
RIP01130 
RIP01140 
R IPO 11 50 
RIP01160 
RIP01170 
RIP01180 
RIP0U90 



SPACE 



00157 


0634 


00 


4 


00122 


REAC2 


SXA 


RX4.4 


00160 


06 34 


00 


2 


00123 




SXA 


RX2.2 


00161 


-0520 


00 





00156 




NZT 


TREW 


00162 


0020 


00 





00204 




TRA 


NREW 


00163 


0520 


00 





002 31 




ZET 


TEOFC 


00164 


0020 


00 





00223 




TRA 


EOFC 


00165 


0774 


00 


2 


10150 


RLCT 


AXT 


LCT1.2 



READ2 REACS ONE RECORD OF THE COLLATION 
TAPE BUFFER INTO BUFFtR OF CONTROL WORD. 

SAVE IRS. 



TEST FOR REWIND. 

NOT REWOUND, COMMENT. 

CHECK FOR EOF ON CTl. 

EOF REACHED, COMMENT. 

MAXIMUM NUMBER OF CARDS ON CTl. 



RIP01200 
RIP01210 
RIP01220 
RIP01230 
RIP01240 
RIP01250 
RIP01260 
RIP01270 
RIP01280 
R IPO 1 290 
RIP01300 



BU 



FFERED INPUT/OUTPUT PROGRAMS FOR CAP. 



00166 

C0167 

C0170 

00171 

00172 - 

C0173 

00174 

00175 

00176 ■ 

00177 

00200 

00201 

00202 

C0203 

00204 
00205 
C0206 
00207 
00210 
00211 

00212 
C0213 
00214 
00215 
C0216 
00217 
00220 
00221 
00222 

00223 
00224 
C0225 
00226 
00227 
C0230 

00231 
00232 
C0233 
00234 
00235 
00236 
C0237 
C0240 
00241 
00242 



-C500 00 
0361 00 
0621 00 
0774 00 

-050C 00 
0602 00 

1 77777 
3 00000 

-0625 00 

2 00001 
0634 00 
0534 00 
0534 00 
0020 00 

0074 00 
0074 00 
00011 
-0760 00 
0074 00 
0020 00 



00001 
10611 
00173 
00016 
10571 
00000 
00175 
00177 
00231 
00172 
00165 
00122 
00123 
00002 

00006 
00003 
00212 
00005 
00147 
00165 



005125 
602321 
246022 
512560 
314524 
464343 
464560 
256C51 
644524 



212402 
434325 
252646 
512566 
736C23 
216331 
632147 
256646 
336060 



0522 60 
0074 00 
0074 00 
0C011 
-0625 60 
0020 60 



00001 
00002 
00003 
00232 
00004 
00005 



00000 00000 

002545246046 

266026314325 

605125212330 

252460663031 

432560512521 

243145276023 

464343216331 

464560632147 

25 3360606060 



TLCT 



CAL 
ACL 
STA 
AXT 
CAL 
SLW 
TXI 
TXH 
STL 
TIX 
SXA 
LXA 
LXA 
TRA 

TSX 

TSX 

PZE 

ESTM 

TSX 

TRA 



WNREW BC[ 



NREW 



EOFC 



TEOFC 
WEOFC 



XEC» 

TSX 

TSX 

PZE 
STL* 

TRA» 

PZE 
BCI 



1,4 
= 14 
•♦3 

14,4 

CT1.2 

••.4 

•+1,2,-1 

•+2,2,»* 

TECFC 

•-5,4,1 

RLCT.2 

RX4.4 

RX2.2 

2,4 

SLSTM.4 
SWOT, 4 
WNREW, 0,9 

REWIND, 4 
RLCT 



GET CONTROL WORD. 

COMPUTE BUFFER+14. 

INSERT. 

SET WORD COUNT. 

MOVE TO BUFFER. 

COUNT CT1. 

CHECK FOR FILE MARK. 

FILE MARK. 

COUNT WORDS. 

SAVE CT1 INDEX. 

RESTORE IRS. 

RETURN. 

CT1 NOT REWOUND, RESET TRAP. 
COMMENT. 

RE-ENTER TRAP. 
REWIND CT1. 
RETURN. 



9.CREAD2 CALLED BEFORE REWIND, COLLATION TAPE REWOUND. 



$SX4 

$SVC0N,4 
SWOT, 4 
WEOFC, 0,9 
SEPMR 
$BACK 



SAVE IR4. 
SAVE CONSOLE. 
COMMENT, EOF ON CT1. 

SET ERROR INDICATOR. 
EXIT TO POST MORTEM. 



END OF FILE MARK ON COLLATION TAPE. 
9.0END OF FILE REACHED WHILE READING COLLATION TAPE. 



RIP01310 
R1P01320 
R IPO 1 3 30 
RIP01340 
RIP01350 
RIP01360 
RIP01370 
RIP01380 
RIP01390 
R1P01400 
RIP01410 
RIP01420 
RIP01430 
RIP01440 
RIP01450 
RIP01460 
RIP01470 
RIP01480 
RIP01490 
RIP01500 
RIP01510 
RIP01520 
RIP01530 



RIP01540 
RIP01550 
RIP01560 
RIP01570 
R1P01580 
R IPO 1590 
RIP01600 
RIP01610 
RIP01620 
RIP01630 



SPACE 



C0243 


0634 00 4 00122 


PRINT SXA 


RX4.4 


00244 


0500 00 00267 


CLA 


LNCNT 



PRINT COUNTS LINES AND CALLS SWOT. 



SAVE IR4. 
COUNT LINES. 



RIP0U40 
R1P01650 
RIP01660 
RIP01670 
RIP01680 



BUFFERED INPUT/OUTPUT PROGRAMS FOR CAP. 



C0245 
00246 
00247 
00250 
C0251 
00252 
00253 
00254 
00255 
00256 
00257 
0C26O 

00261 
00262 
00263 
00264 
00265 
00266 

00267 
00270 
00271 
00272 
00273 
00274 
00275 
00276 



0402 00 

0601 00 

-0120 00 

-0500 00 

0621 00 

0622 00 
00 74 00 
0074 00 
00000 

-0760 00 
0534 00 
0020 00 

0522 60 
0074 00 
0074 00 
00007 
-0625 60 
0020 60 



10610 
00267 
00261 
00001 
00255 
00255 
00006 
00003 
00000 
00005 
00122 
00002 

00001 
00002 
00003 
002 70 
00004 
00005 



00000 00454 

004751462751 

214444255160 

466463476463 

602567232525 

246260030000 

605125234651 

246233606060 



SUB 

STO 

TMI 

CAL 

STA 

STO 

TSX 

TSX 

PZE 

ESTM 

LXA 

TRA 

XEO 

TSX 

TSX 

PZE 

STL* 

TRA» 



LNCNT PZE 
WLNEX BCI 



CWOT 



LNEX 



= 1 

LNCNT 

LNEX 

lt4 

CWOT 

CWOT 

$LSTM,4 

SWOT, 4 



RX4.4 
2,4 

»SX4 

SSVC0N.4 
SWOT, 4 
WLNEX, 1,7 
SEPMR 
SBACK 



CHECK FOR LNCNT EXCEEDED. 
SET CONTROL WORD FOR WOT. 



RESET TRAP. 
OK, GO TO WOT. 

RESET TRAP. 
RESTORE IR4. 
RETURN. 

LNCNT EXCEEDED, SAVE IR4. 

SAVE CONSOLE. 

COMMENT. 

SET ERROR INOICATOR. 

EXIT TO POST MORTEM SECTION. 



300 MAXIMUM LINES OUTPUT. 

7.0PROGRAMMER OUTPUT EXCEEDS 300 RECORDS. 



RIP01690 
RIP01700 
RIP01710 
RIP01720 
RIP01730 
RIP01740 
RIP01750 
R IPO 1760 
RIP01770 
RIP01780 
RIP01790 
RIP01800 
RIP01810 
RIP01820 
RIP01830 
RIP01840 
RIP01850 
RIP01860 
RIP01870 
RIP01880 
RIP01890 
RIP01900 



002 77 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
0030 7 
00310 
C0311 
00312 
00313 
00314 
00315 
00316 
00317 
00320 
00321 
00322 
00323 
00324 
00325 



0634 00 
0634 00 
0634 00 
0074 00 
00010 
0074 00 

00001 
-0500 00 

0621 00 

0774 00 

0774 00 

0560 00 

-0154 06 

-0600 00 

-2 00001 

1 77777 
0560 00 
0500 00 
0402 00 
0120 00 
0500 00 
0560 00 
0601 00 



00122 
00123 
00124 
00003 
00337 
00003 
10614 
00007 
00313 
00000 
00016 
00000 
00000 
10610 
00317 
00312 
10614 
00336 
10610 
00325 
10612 
10613 
00336 



SPACE 



PPROG SXA 
SXA 
SXA 
TSX 
PZE 
TSX 
PZE 
CAL 
STA 

PPLTH AXT 
AXT 

PPEND LDQ 

CRQ1 CRO 
STO 
TNX 
TXI 
LDQ 
CLA 
SUB 
TPL 
CLA 
LDQ 
STO 



PPROG PRINTS UP TO 15C CARDS OF SpROG. 



RX4.4 

RX2.2 

RX1.1 

SWOT, 4 

PHEAD.0,8 

SWOT, 4 

=H 

SBCDTAB 

CRC1 

••,1 

14,2 

••,1 

••,0,6 

PBUFF+15,2 

•+2,2,1 

•-4,1,-1 

-H 

PPCNT 

= 1 

•♦3 

= 59 

-HI 

PPCNT 



• 0,1 



SAVE IRS. 

INITIAL COMMENT. 

BLANK LINE. 

GET ADDRESS OF TABLE. 

• • 

PROGRAM WORD COUNT. 

BUFFER WORD COUNT. 

GET CURRENT WORD. 

DELETE ILLEGAL CHARACTERS. 

PLACE IN BUFFER. 

COUNT WORDS IN BUFFER. 

COUNT WORDS IN PROG. 

PICKUP STANDARD CARRIAGE CONTROL. 

DECREMENT LINE COUNT. 

CHECK FOR OVERFLGW. 

OVERFLOW, RESTORE LINE COUNT-1. 

SET TO EJECT. 

SAVE REMAINING LINE COUNT. 



RIP01910 

RIP01920 

RIP01930 

RIP01940 

RIP01950 

RIP01960 

RIP01970 

RIP01980 

R1P01990 

RIP02000 

RIP02010 

RIP02020 

RIP02030 

RIP02040 

RIP02050 

RIP02060 

RIP02070 

RIP02080 

RIP02090 

RIP02100 

RIP02110 

RIP02 120 

RIP02130 

RIP02140 

RIP02150 

RIP02160 



BUFFERED INPUT/OUTPUT PROGRAMS FOR CAP. 



00326 
00327 
00330 
00331 
00332 
00333 
00334 
00335 

C0336 
00337 
00340 
00341 
00342 
00343 
00344 
00345 
00346 



-0600 00 
0074 00 
00017 
2 00001 
0534 00 
0534 00 
0534 00 
0020 00 



10571 
4 00003 

10571 

1 00311 
4 00122 

2 00123 
1 00124 
4 00001 



00000 00072 

016060606060 

606060606060 

604746626360 

444651632544 

604626606270 

442246433123 

604751462751 

214433606060 



00347 

00350 

00351 

00352 

00353 

00354 

00355 

00356 

00357 

00360 

00361 

00362 

00363 

00364 

00365 

00366 

00367 

00370 

00371 

00372 

00373 

00374 

00375 

00376 

00377 

00400 

00401 

00402 

00403 

00404 

00405 

00406 

00407 



0634 00 4 

0634 00 2 

0634 00 

0074 00 

00010 

0074 00 

00001 
-0500 00 

0621 00 
-0520 00 

00 74 00 
0774 00 
0774 00 
0560 00 

-0154 06 
-0600 00 

1 77777 

2 00001 
0560 00 
0500 00 
0402 00 
0120 00 
050C 00 
0560 00 
0601 00 

-0600 00 
0074 00 
00017 

3 00000 
0534 00 
0534 00 
0534 00 
0020 00 



00122 

00123 

00124 

00003 

00411 

00003 

10614 

00007 

00365 

00156 

00147 

10150 

00016 

10571 

00000 

10610 

00370 

00364 

10614 

00410 

10610 

00377 

10612 

10613 

00410 

10571 

00003 

10571 

00363 

00122 

00123 

00124 

00001 



STQ 
TSX 
PZE 
TIX 
LXA 
LXA 
LXA 
TRA 

PPCNT PZE 
PHEAD BC1 

BCI 



SPACE 



PCT1 SXA 
SXA 
SXA 
TSX 
PZE 
TSX 
PZE 
CAL 
ST A 
NZT 
TSX 
AXT 

PCTL AXT 
LDQ 

CRQ2 CRQ 
STQ 
TXl 
TIX 
LDQ 
CLA 
SUB 
TPL 
CLA 
LDQ 
STO 
STQ 
TSX 
PZE 
PTLCT TXH 
LXA 
LXA 
LXA 
TRA 



INSERT CARRIAGE CONTROL. 
PRINT THIS CARD. 

COUNT RECORDS. 
RESTORE IRS. 



RETURN. 

60 LINES PER PAGE - 2 FOR HEADING. 



PBUFF 

*WCT,4 

PBUFF, 0.15 

PPLTH+1,1,1 

RX4.4 

RX2.2 

RX1, 1 

1.4 

58 
2.1 



6, POST MCRTEM OF SYMBOLIC PROGRAM. 



RIP02170 
RIP02180 
RIP02190 
RIP02200 
RIP02210 
RIP02220 
RIP02230 
RIP02240 
RIP02250 
RIP02260 
R1P02270 

RIP02280 



PCT1 PRINTS UP TO 300 RECORDS OF CT1. 



>C.l 



RX4.4 

RX2.2 

RX1.1 

SWOT, 4 

CHEAO.0,8 

*W0T,4 

= H 

*BCDTAB 

CRC2 

TREW 

REWIND, 4 

LCT1.1 

14,2 

CTl.l 

••,0,6 

PBUFF+15,2 

•+1,1,-1 
•-4,2,1 

= H 

PCCNT 

= 1 

• ♦3 

= 59 

= H1 

PCCNT 

PBUFF 

$W0T,4 

PBUFF, 0,15 

PCTL.lt" 

RX4.4 

RX2.2 

RX1.1 
1.4 



SAVE IRS. 



INITIAL COMMENT. 

BLANK LINE. 

GET AOORESS OF TABLE. 

TEST FOR REMIND. 

NO, REWINO. 

SET MAXIMUM RECORD COUNT, COLLATION TAPE. 

BUFFER WORD COUNT. 

GET CURRENT WORD. 

DELETE ILLEGAL CHARACTERS. 

PLACE IN BUFFER. 

COUNT WORDS CN CT1. 

COUNT WORDS IN BUFFER. 

PICKUP STANDARD CARRIAGE CONTROL. 

DECREMENT LINE COUNT. 

CHECK FOR OVERFLOW. 

OVERFLOW, RESTORE LINE COUNT-1. 

SET TO EJECT. 

SAVE REMAINING LINE COUNT. 

INSERT CARRIAGE CONTROL. 

PRINT THIS RECORD. 

CHECK FOR ECF ON CT1. 
RESTORE IRS. 



RETURN. 



RIP02290 

RIP02300 

RIP02310 

RIP02320 

RIP02330 

RIP02 340 

RIP02350 

RIP02360 

RIP02370 

RIP02380 

RIP02 390 

RIP02400 

RIP02410 

RIP02420 

RIP02430 

RIP02440 

RIP02450 

RIP02460 

RIP02470 

RIP02480 

RIP02490 

RIP02 500 

RIP02510 

RIP02520 

RIP02530 

RIP02540 

RIP02550 

RIP02560 

RIP02570 

RIP02580 

RIP02590 

RIP02 600 

RIP02610 

RIP02620 

RIP02630 

RIP02640 



BUFFERED INPUT/OUTPUT PROGRAMS FOR CAP. 



00410 
00411 
00412 
00413 
00414 
00415 
00416 
00417 
00420 



00421 
00422 
00423 
00424 
00425 
00426 
00427 
00430 
00431 
00432 
00433 
00434 
00435 
00436 
10571 
10571 



00000 00072 

016060606060 

606060606C60 

604746626360 

44 4651632544 

604626602346 

434321633146 

456063214725 

336060 606060 

04064 
10150 

512523465124 
604546336001 
736023464343 
216331464560 
632147257360 
454663303145 
276030216260 
222525456066 
513163632545 
604645602363 
013360606060 
606060 606060 
606060 606060 
606060606060 



LITERALS 

10610 000000000001 

10611 000000000016 

10612 000000000073 

10613 016060606060 

10614 606060606C60 



PCCNT PIE 
CHEAO BCI 

BCI 



LPROG EQU 
LCT1 EQU 

BCI 



BCI 



CT1 BES 
PBUFF BSS 

ENO 



58 60 LINES PER PAGE - 2 FOR HEADING. 

2,1 

6, POST MORTEM OF COLLATION TAPE. 



RIP02650 
RIP02660 
RIP02670 

RIP02680 



14*150 
14*300 

9, RECORD NO. 



RIP02690 
RIP02700 
RIP02710 

. , RIP02720 

If COLLATION TAPE, NOTHING HAS BEEN WRITTEN RIP02730 



150 CAROS ON INPUT TAPE. 

300 RECORDS MAX CN COLLATION TAPE. 



5, ON CT1. 



LCTl-14 

15 



COLLATICN TAPE BUFFER. 
PRINT BUFFER. 



RIP02 740 



RIP02750 
RIP02760 
RIP02 770 
RIP02780 



BUFFERED INPUT/OUTPUT PROGRAMS FOR CAP. 
POST PROCESSOR ASSEMBLY DATA 

10615 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM 
REFERENCES TO DEFINED SYMBOLS 



10571 


CT1 


115, 


172, 


364 








12 


RIP 














124 


RXl 


75, 


301, 


334, 


351, 


40 6 




123 


RX2 


32, 


47, 


74, 


160, 


202, 


300, 333, 350, 405 


122 


RX4 


12, 


25, 


31, 


46, 


73, 


157, 201, 243, 257 


1 


SX4 


51, 


126, 


223, 


261 






134 


TAG 


77, 


101 










3 


WOT 


53, 


130, 


205, 


225, 


254, 


263, 302, 304, 327 


5 


BACK 


56, 


133, 


230, 


266 






313 


CR01 


3C7 












365 


CRQ2 


357 












255 


CWCT 


251, 


252 










223 


EOFC 


164 












51 


EOFI 


30 












126 


EOTC 


72 












4 


EPMR 


55, 


132, 


227, 


265 






10150 


LCT1 


111, 


165, 


362, 


421, 


10571 




261 


LNEX 


247 












6 


LSTM 


204, 


253 










2 04 


NREW 


162 












347 


PCT1 














363 


PCTL 


403 












40 


PENG 


21, 


44 










37 


PLTH 


23, 


45 













PRCG 


13, 


20 










165 


RLCT 


200, 


211 










41 


SLW1 


35 












175 


TLCT 


152 












156 


TREW 


147, 


161, 


360 








112 


WCAL 


1C7, 


120 










71 


WCT1 














111 


WLCT 


121, 


150 










411 


CHEAD 


353 












267 


LNCNT 


244, 


246 










4064 


LPRCG 


15, 


16, 


421 








10571 


PBUFF 


314, 


326, 


330, 


366, 


400, 


402 


410 


PCCNT 


372, 


377 










337 


PHEAD 


303 












336 


PPCNT 


320, 


325 










312 


PPENO 


22 












310 


PPLTH 


24, 


331 










277 


PPROG 














243 


PRIM 














403 


PTLCT 


153 












27 


READ1 














157 


REAC2 














2 


SVCCN 


52, 


127, 


224, 


262 






231 


TEOFC 


163, 


176 










57 


TE0F1 


27, 


43 










135 


TEOTC 


71, 


117 










232 


WEOFC 


226 












60 


WEOFI 


54 













277, 332, 347, 404 
352, 354, 401 



BUFFEREC INPUT/OUTPUT PROGRAMS FOR CAP. 
POST PROCESSOR ASSEMBLY DATA 



136 


WEOTC 


131 




270 


WLNEX 


264 




212 


WNREW 


206 




7 


BCDTAB 


306, 


356 


147 


REWIND 


210, 


361 



NO ERROR IN ABOVE ASSEMBLY. 

• TIME SPENT IN FAP. . 000012 IN HUNDREDTHS OF MINUTES. 



SYMBOLIC PROGRAM TO TEST CAP. 



00002 



PCC 




COUNT 


150 


LBL 


PROG 


ENTRY 


PRCG 



BINARY CARD LABEL. 



PROG0010 
PROG0020 
PR0G0030 
PROG0050 



LINKAGE DIRECTOR 

COOOO 000000000000 

00001 475146276060 

00002 01724 00003 PROG 

00003 232147606060 
00014 456233606C60 
00021 606060606060 
00032 606060606060 
00037 234664456360 
00050 606060606060 
00055 606060606060 
00066 606060606060 
00073 606060606060 
00104 606060606060 
OOlU 434646476060 
00122 606060606060 
00127 606060606060 
00140 606060606060 
001*5 702562606060 
00156 606060606060 
00163 606060606060 
00174 606060606060 
00201 606060606060 
00212 606060606060 
00217 606060606060 
00230 606060606060 
00235 606060606060 

00246 606060606060 

00253 606060606060 

00264 606060606060 

00271 454660606060 

00302 606060606060 

00307 606060606060 

00320 606060606060 

00325 244645256060 

00336 604623632143 

00343 606060606060 

00354 606060606060 

00361 712551466060 

00372 606060606060 

00377 464525606060 

00410 606060606060 

00*15 633062676060 

00426 606060606060 

00433 606060606060 

00444 606060606060 

00451 223163626060 

00462 606060606060 

00467 664651246060 



PZE 

TITLE 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 



•♦1,0, LTH 

9, CAP 

5iNS. 

9, 

5, 

9, COUNT 

5, 

9, 

5, 

9, 

5, 

9, LOOP 

5, 

9, 

5, 

9, YES 

5, 

9, 

5, 

9, 

5, 

9, 

5, 

9, 

5, 

9, 

5, 

9, NO 

5, 

9, 

5, 

9, CONE 

5. OCTAL 

9, 

5, 

9, ZERO 

5. 

9tONE 

5, 

9.THSX 

5, 

9, 

5, 

9, BITS 

5, 

9.W0RC 



REM 

REM 

LOQ 

STO 

LXA 

LBT 

TRA 

SLH 

CAL 

ACL 

SLH 

CAL 

LGR 

TIX 

CAL 

OCTL 

REM 

OCTL 

INT 

LAS 

REM 

INT 

INT 



CONTROL WORD. START, .LENGTH. 

DELETE GENERATED OCTAL FROM LISTING. 

THE FOLLOWING ARE ALL LEGAL CAP INSTRUCT 10 

TSTCAPOO 
PROGRAM TO COUNT BITS IN AC. 

TSTCAP01 

ZERO TEST CELLS 

TSTCAP02 



ZERO 
BITS 
THSX 

NO 

WORD 

BITS 

ONE 

BITS 

WORD 

1 

LOOP 

BITS 



TSTCAP03 
TSTCAP04 
TSTCAP05 
TSTCAP06 
TSTCAP07 
TSTCAP08 
TSTCAP09 
TSTCAP10 



COUNT 36 BITS. 

BIT OR NO. 

NC BIT. 

BIT, SAVE AC, 

AND INCREMENT COUNT. 



RESTORE AC. 
TSTCAP11 

NEXT BIT. 
TSTCAP12 

INDEX. 
TSTCAP13 

GET COUNT. 
TSTCAP14 
002100070000 STOP WITH TRANSFER TO 70000 

TSTCAP15 
STORAGE. 

TSTCAP16 
OOOOOOOOOOOO TRUE ZERO. 
TSTCAP17 

INCREMENT OF ONE. 
TSTCAP18 

ADORESS IS 36. 
TSTCAP19 



1 

36 

DATA. 







TSTCAP20 
TSTCAP21 



STORAGE FOR BIT COUNT. 
TEMPORARY STORAGE FOR AC. 



PROG0060 

PROG0070 

PR0G0080 

PROG0090 

PROG0100 

PR0G0110 

PR0G0120 

PROG0130 

PR0G0140 

PR0G0150 

PR0G0160 

PROG0170 

PROG0180 

PROG0190 

PROG0200 

PROG0210 

PROG0220 

PROG0230 

PROG0 240 

PROG0 250 

PROG0260 

PROG0270 

PROG0 280 

PROG0 290 

PROG0 300 

PROG0310 

PROG0 320 

PROG0 330 

PROG0 340 

PROG0350 

PROG0 360 

PROG0 370 

PROG0 380 

PROG0 390 

PR0G0400 

PROG0410 

PR0G0420 

PROG0430 

PROG0440 

PR0G0450 

PROG0460 

PR0G0470 

PR0G0480 

PROG0490 

PROG0500 

PROG0510 

PR0G0 520 



SYMBOLIC PROGRAM TO TEST CAP. 



00500 

00505 

00516 

00523 

00534 

00541 

00552 

00557 

C0570 

00575 

00606 

00613 

00624 

00631 

00642 

00647 

00660 

00665 

00676 

00703 

00714 

00721 

00732 

00737 

00750 

00755 

00766 

00773 

01004 

01011 

01022 

01027 

01040 

01045 

01056 

01063 

01074 

01101 

01112 

01117 

01130 

01135 

01146 

01153 

01164 

01171 

01202 

01207 

01220 

01225 

01236 

01243 

C1254 

C1261 

01272 

01277 



606060606060 

606060606060 

606060606060 

60606060 6060 

606060606060 

606060606060 

606060606060 

606060 606060 

606060606060 

606060606060 

246062 704422 

606060 606060 

606060606060 

234644476060 

606060606060 

606060606060 

444733606060 

606060606060 

606060606060 

606060 606060 

606060606060 

606060606060 

514640244645 

606060606060 

606060606060 

446443606060 

606060 606060 

446443606060 

606060606060 

236060606060 

606060606060 

246060606060 

606060606060 

606060606060 

606060 606060 

606060606060 

606060606060 

60 6060606060 

606060606060 

716060606060 

256262 602151 

606060606060 

255133606060 

606060606060 

606060606060 

606060606060 

606060606060 

546051254421 

60 6060606060 

224345426060 

606060606060 

745313546160 

60 6060606060 

506060606060 

606060606060 

606060 606060 



BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 

BCI 



REM 



5, 

9, 

5, 

9, 

5, 

9, 

5, 

9, 

5, 

9, 

5,C SYMBOL 

9. COMP 

5, 

9, COMP 

5, 

9, 

5, MP. 

9, 

5, 

9, 

5, 

9, 

5,RO-0ONE>+8) 



TSTCAP22 
TEST OF CAP PSEUDO-OPS, AND FLAGS. 

TSTCAP23 
ILCD 8 ILLEGAL OPCODE. 

TSTCAP24 
TRA UNOEF UNDEFINED SYMBOL. 

TSTCAP25 
INT 1,2,-7, 13A3, 9 ERROR IN INTOP. 

TSTCAP26 

HMW AEN ILLEGAL OPCODE AND UNDEFINE 

TSTCAP27 
YES ♦ LOOP 

TSTCAP28 
COMP Z«A»B»C/0/E/ FLAG 

TSTCAP29 
TRA COMP USE OF SYMBOL DEFINED BY CO 

TSTCAP30 
COMP COUNT, 1 » L00P01.2 - START, 4 

TSTCAP31 
COMP OZ = (E*Z«ID*Z»(C*Z.(B+Z.A)))J ♦ FOO 

TSTCAP32 

TIX C0UNT»3.<(( NO-YES >.Z*1)«(L00P-C0UNT) +6. <ZE 



NO 



9, 

5, 

9.MUL 

5, 

9.MUL 

5, 

9,C 

5, 

9,0 

5, 

9, 

5, 

9, 

5, 

9, 

5, 

9,Z 



TSTCAP33 



REM TEST OF PROPOSED MODIFICATIONS TO CAP. 
TSTCAP34 

INT ° MULTIPLY DEFINED SYMBOL. 

TSTCAP35 

INT ° MULTIPLY DEFINED SYMBOL. 

TSTCAP36 
PZE -32+BITS P2E COOE. 

TSTCAP37 
MZE N0*65 MZE CODE. 

TSTCAP38 

SLW $+1 * FOR THIS LOCATION 

TSTCAP39 
CLA 2»*-l $ TEST . 

TSTCAP40 

MTH c/3 DIVISION IN ADDRESS 

TSTCAP41 

5.ESS ARITH„ N ETic! S " C ?^ AP 4 3 2 F ^ """ DIVISI ° N ,M A °° R 

9, STO (C-FLAGI/2 DIVISION KITH NEGATIVE ANSW 

5rER. TSTCAP43 

9, SLW -8.BITS+$.1+7«Z USE OF $ AS A SYMBOL. 

5 ' TSTCAP44 

I' ARF <*-C)/5+Q $,/, AND ILLEGAL OPCODE 

5 > TSTCAP45 

9,» REMARK CARD WITH . IN COLUMN 1. 

5 « TSTCAP46 

9.BLNK BLNK BLANK OPCODE. 

5 » TSTCAP47 

9,($»./ NOP UNOEF s, 0, ANO U FLAGS. 

5 » TSTCAP48 

9,0 HOL 5THIS IS HOLLERITH INFO. 

5 » TSTCAP49 

9, CLA» FLAG USE OF FLAGGED INSTRUCTION. 



PROG0 530 

PR0G0540 

PR0G0550 

PROG0560 

PROG0570 

PR0G0580 

PR0G0 590 

PRO GO 600 

PR0G0610 

PROG0620 

PROG0 630 

PROG0 640 

PROG0 650 

PROG0660 

PR0G0670 

PROG0 680 

PROG0690 

PROG0700 

PROG0710 

PR0G0720 

PROG0730 

PROG0740 

PROG0 750 

PROG0 760 

PROG0770 

PROG0780 

PROG0 790 

PROG0800 

PR0G0810 

PROG0820 

PR0G0830 

PR0G0840 

PROG0850 

PROG0860 

PROG0870 

PR0G0880 

PR0G0890 

PROG0900 

PR0G0910 

PROG0920 

PR0G0 930 

PROG0940 

PROG0950 

PROG0960 

PROG0970 

PROG0980 

PROG0990 

PROG1000 

PR0G1010 

PR0G1020 

PROG1030 

PR0G1040 

PR0G1050 

PROG1060 

PR0G1070 

PR0G1080 



SYMBOLIC PROGRAM TO 

01310 606060606060 

01315 264321276060 

C1326 606060606060 

01333 606060606060 

013*4 606060606060 

01351 605460606060 

01362 606060606060 

01367 606060606060 

01400 606060606060 

01405 606060606060 

01416 606060606060 

01423 247160606060 

01434 606060606060 

01441 606060606060 

01452 606060606060 

01457 606060606060 

01470 606060606060 

01475 626321516360 

01506 606060606060 

01513 216060606060 

01524 643360606060 

01531 473160606060 

01542 606060606060 

01547 226060606060 

01560 514651336060 

01565 256060606060 

01576 606060606060 

01603 266060606060 

01614 462660226262 

01621 434646470001 

01632 606060606060 

01637 232143436060 

01650 606060606060 

01655 232143430260 

01666 606060606060 

01673 602646466060 

01704 43 3360 606060 

01711 602545246060 
C1722 606060606060 

01724 



TEST CAP. 






BCI 


5, 




BCI 


9, FLAG 


STO ' 


BCI 


5, 




BCI 


9, 


CLA 


BCI 


5, 




BCI 


9, • 


LAC* 


BCI 


5, 




BCI 


9, 


TNX 


BCI 


5, 




BCI 


9, 


FAD 


BCI 


5, 




BCI 


9.CZ 


OCT 


BCI 


5, 




BCI 


9, 


FDP 


BCI 


5, 




BCI 


9, 


STO 


BCI 


5, 




BCI 


9, START 


EQU 


BCI 


5, 




BCI 


9, A 


TRA 


BCI 


5,U. 




BCI 


9, PI 


EQU 


BCI 


5, 




BCI 


9,B 


TRA 


BCI 


5.R0R. 




BCI 


9,E 


BSS 


BCI 


5, 




BCI 


9,F 


BSS 


BCI 


5, OF BSS. 


BCI 


9.L00P0I 


L BSS 


BCI 


5, 




BCI 


9, CALL 


CALL 


BCI 


5, 




BCI 


9.CALL2 


CALL 


BCI 


5, 




BCI 


9, FOO 


CLA 


BCI 


5,L. 




BCI 


9, END 


END 


BCI 


5, 




DETAIL 






LTH EQU 


•-1-PR0G 


END 







TSTCAP50 
1139 LITERAL. 

TSTCAP51 
,1139 SAME LITERAL. 

TSTCAP52 
«5597.0 E, S, ANO F FLAGS. 

TSTCAP53 
Zt3 ,5 TAG AND DECREMENT FIELD. 

TSTCAP54 
(YES-COUNT)* (NO-LOOP l+START, 2*3* (NO-LOOP) 

TSTCAP55 
17, 13, -44,0, 13,, 1 OCT PSEUDO-OP. 

TSTCAP56 
FLAG A DIVIDE INSTRUCTION. 

TSTCAP57 
MUL+UNDEF FOLLOWED BY A STORE. 

TSTCAP58 
C0UNT + 3MN0-L00P) PROPER USE OF EQU. 

TSTCAP59 
START USE OF SYMBOL DEFINED BY EQ 

TSTCAP60 
ENO-COMP PHASE ERROR. 

p, TSTCAP6 USE 0F SYMBQL WITH PHASE ER 

TSTCAP62 
5 PROPER BSS. 

LOOP-COUNT PROPER SYMBOLIC DEFINITION 

CALL-F TSTC * P64 IMPROPER BSS, PHASE ERROR. 

TSTCAP65 
COUNT, NO, C, YES LEGAL CALL MACRO. 

TSTCAP66 
ABLE,BAKER+2,CHRLY-5*(NO-LOOP) 

$ T J CHECK ILC AFTER BSS AND CAL 

TSTCAP68 
C0UNT+1«UNDEF FINALLY THE END. 

TSTCAP69 
RETURN TO NORMAL MODE. 
LENGTH OF PROG. 



PR0G1090 

PR0G1100 

PROG1110 

PR0G1120 

PR0G1130 

PR0G1140 

PR0G1150 

PROG1160 

PR0G1170 

PROGllBO 

PR0G1190 

PROG1200 

PROG1210 

PROG1220 

PROG1230 

PR0G1240 

PROG1250 

PROG1260 

PR0G1270 

PROG1280 

PR0G1290 

PROG1300 

PROG1310 

PR0G1320 

PR0G1330 

PR0G1340 

PR0G1350 

PROG1360 

PR0G1370 

PR0G1380 

PROG1390 

PR0G1400 

PR0G1410 

PROG1420 

PROG1430 

PR0G1440 

PROG1450 

PROG1460 

PROG1470 

PR0G14B0 

PROG1490 

PROG1500 



POST PROCESSOR ASSEMBLY DATA 
1727 IS THE FIRST LOCATICN NCT USED BY THIS PROGRAM 



REFERENCES TO DEFINED SYMBOLS 
1724 LTH 2, 1727 
2 PROG 1727 



N0 "^ME'sPENriN^Ap!:!^- 000007 IN HUNDREDTHS OF MINUTES. 



1.17 MINUTES ELAPSEC SINCE START OF JOB 
SUBPRCGRAM STORAGE MAP FOLLOWS. 

NAME ORIGIN ENTRY 

CAP 144 151 

PASS1 201 213 

PASS2 317 327 

VAREVL 637 644 

OPTBL 1117 1121 

INTOP 1226 1230 

SCAN 1351 1353 

SYMSTO 2462 2465 

ENDOP 3036 3042 

COMPOP 3207 3217 

EXPR 3752 3760 

TERM 4155 4163 

(MAIN) 4320 4321 

TESTS 4325 4331 
END OF STORAGE MAP. 



TEST OF CAP, BEGIN ASSEMBLY. 





50000 


056000050016 




50001 


460000050021 




50002 


053400450020 




50003 


076000000001 




5000* 


002000050013 




50005 


060200050022 




50006 


450000050021 




50007 


036100050017 




50010 


060200050021 




50011 


450000050022 




50012 


4765000C0001 




50013 


2C0001450003 




50014 


450000050021 




50015, 


002100070000 




50016 


000000000000 




50017 


000001000000 




50020 


434000000044 




50021 


000000000000 




50022 


000000000000 





50023 


000000000010 


u 


50024 


002000000000 


E 


50025 


000001000000 


cu 


50032 


000000000000 




50033 


05C0C0050005 




50034 


030000050003 




50035 


060100050013 




50036 


056000050143 




50037 


026000050145 




50040 


013100000000 




50041 


026000050114 




50042 


024100050115 




50043 


01310COOOOOO 




50044 


024100050146 




50045 


01310000000C 




50046 


024100050132 




50047 


460C00050154 




50050 


0500 00050154 




50051 


060100050121 




50052 


002000050036 




50053 


05000005015C 




50054 


030200050142 




50055 


060100050000 




50056 


056300050121 




50057 


026000050143 




50060 


060100050154 




50061 


050000050145 




50062 


030000050154 




50063 


060100050155 




50064 


056000050121 




50065 


026000050155 



CAP 


REM 


THE FOLLCWINI 


; ARE ALL LEGAL CAP INSTRUCTIONS. 




REM 


PROGRAM TO COUNT BITS IN AC. 


COUNT 


LOQ 


ZERO 


ZERO TEST CELLS 




ST« 


BITS 


. . 




LXA 


THSX 


COUNT 36 BITS. 


LOOP 


LBT 




BIT OR NO. 




TRA 


NO 


NO BIT. 


YES 


SLW 


WORD 


BIT, SAVE AC, 




CAL 


BITS 


AND INCREMENT COUNT. 




ACL 


ONE 






SLW 


BITS 


. . 




CAL 


WORD 


RESTORE AC. 




LGR 


1 


NEXT BIT. 


NO 


TIX 


LOOP 


INDEX. 




CAL 


BITS 


GET COUNT. 


DONE 


OCTL 


0021000 70000 


STOP WITH TRANSFER TO 70000 OCTAL. 




REM 


STORAGE. 




ZERO 


OCTL 


000000000000 


TRUE ZERO. 


ONE 


INT 


1 


INCREMENT OF ONE. 


THSX 


LAS 


36 


ADDRESS IS 36. 




REM 


DATA. 




BITS 


INT 





STORAGE FOR BIT COUNT. 


WORD 


INT 





TEMPORARY STORAGE FOR AC. 




REM 


TEST OF CAP 


PSEUDO-OPS, AND FLAGS. 




ILCD 


8 


ILLEGAL OPCODE. 




TRA 


UNDEF 


UNDEFINED SYMBOL. 




INT 


1,2,-7, 13A3, 


9 ERROR IN INTOP. 




WMW 


AEN 


ILLEGAL OPCODE AND UNDEFINED SYMBO 




COMP 


NO « YES ♦ 


LOOP 




CLA 


YES 






FAD 


LOOP 






STO 


NO 




COMP 


COMP 


Z = A • B 


• C / / E / FLAG 




LDQ 


A 






FMP 


B 






XCA 








FMP 


C 






FDP 


C 






XCA 








FDP 


E 






XCA 








FDP 


FLAG 






STQ 


TEM 






CLA 


TEM 






STO 


I 






TRA 


COMP 


USE OF SYMBOL OEFINED BY COMP. 




COMP 


COUNT, 1 - 


L00P01,2 - START, 4 




CLA 


L00P01.2 






FSB 


START, 4 






STO 


COUNT, 1 






COMP 


DZ = (E*Z» 


(D*Z»IC+Z»(B+Z*AI)> ) ♦ FOO 




LDQ 


Z 






FMP 


A 






STO 


TEM 






CLA 


B 






FAD 


TEM 






STO 


TEM+1 






LDQ 


Z 






FMP 


TEM+1 





TSTCAPOO 
TSTCAP01 
TSTCAP02 
TSTCAP03 
TSTCAP04 
TSTCAP05 
TSTCAP06 
TSTCAP07 
TSTCAP08 
TSTCAPC9 
TSTCAP10 
TSTCAPU 
TSTCAP12 
TSTCAPU 
TSTCAP14 
TSTCAP15 
ISTCAP16 
TSTCAP17 
TSTCAP18 
TSTCAP19 
TSTCAP20 
TSTCAP21 
TSTCAP22 
TSTCAP23 
TSTCAP24 
TSTCAP25 
TSTCAP26 
TSTCAP27 
TSTCAP28 



TSTCAP29 



TSTCAP30 
TSTCAP31 



TSTCAP32 





50066 


060100050156 




STO 




50067 


050000050114 




CLA i 




50070 


030000050156 




FAD 




50071 


060100050157 




STO 




50072 


056000050121 




LOU 




50073 


026000C50157 




FMP 




50074 


060100050160 




STO 




50075 


050000050115 




CLA 




50076 


03000005016C 




FAD 




50077 


060100050161 




STO 




50100 


056000050121 




LDU 




50101 


026000050161 




FMP 




50102 


060100050162 




STO 




50103 


050000050146 




CLA 




" 50104 


030000050162 




FAD 




50105 


060100050163 




STO 




50106 


050000050163 




CLA 




50107 


030000050153 




FAD 




50110 


060100050137 




STO 




50111 


200001440517 




TIX 

REM 




50112 


OOOOOOOCOOOO 


MUL 


INT 




50113 


000000000000 


MUL 


INT 





50114 


000000047761 


c 


PZE 





50115 


000000050114 





MZ£ 


u 


50116 


060200000001 




SLM 


u 


50117 


050000077777 




CLA 


ou 


50120 


000000000000 




MTH 





50121 


000000050154 


I 


PON 




50122 


060100077762 




STO' 


u 


50123 


060200030657 




SLW 


au 


50124 


000000000014 




ARF 





50125 


000000050115 


• REMARK CAR 


G 


50126 


000000050126 


BLNK 




OU 


50127 


OOOCOOOOOOOO 


( *«•/ 


NOP 


OU 


50130 


OOOOOOOCOOOO 


C 


HOL 5 





50131 


000000050132 




CLA» 




50132 


060100031043 


FLAG 


STO 




50133 


050000031043 




CLA 


OU 


50134 


OOOOOOOOOOOO 


• 


LAC* 





50135 


000000050121 




TNX 




50136 


030000050212 




FAD 





50137 


0000 00000021 


DZ 


OCT 




50140 


024100050132 




FOP 


u 


50141 


060100050113 




STO 





50142 


0000C0050030 


START 


EQU 




50143 


002000050142 


A 


TRA 





50144 


000000000126 


PI 


EQU 




50145 


002000050144 


B 


TRA 





50146 


OOOO0OCCOO05 


E 


BSS 





50147 


000000000003 


F 


BSS 





50150 


000000000002 


LCOP01 


BSS 





50151 


000000050000 


CALL 


CALL 


OU 


50152 


OOOOOOOOOOOO 


CALL2 


CALL 


u 


50153 


050000000000 


FOO 
TEH 


CLA 
REM 


u 




50000 


END 


END 



TEM+2 

C 

TEM + 2 

TEM+3 

Z 

TEM+3 

TEM+4 

C 

TEM + 4 

TEM+5 

Z 

TEM+5 

TEM+6 

E 

TEM+6 

TEM+7 

TEM+7 

FOO 

DZ 

C0UNT+3*( ( (N0-YES)»Z+1 )«(LOOP-COUNT) +8* (ZERO-DONE )+8) TSTCAP33 

TEST CF PROPCSED MODIFICATIONS TO CAP. TSTCAP34 

MULTIPLY CEFINED SYMBOL. TSTCAP35 

MULTIPLY DEFINED SYMBOL. TSTCAP36 

-32+BITS PZE CODE. TSTCAP37 

NO+65 MZE CODE. TSTCAP38 

$+1 $ FOR THIS LOCATION TSTCAP39 

2«$-l * TEST. TSTCAP40 

C/3 DIVISION IN ACCRESS TSTCAP41 

(YES-C0UNTI/3+F PON WITH DIVISION IN ADDRESS ARITHMETIC. TSTCAP42 

(C-FLAGI/2 DIVISION hITH NEGATIVE ANSWER. TSTCAP43 

-8»BITS+$»1+7»Z USE OF $ AS A SYPBOL. TSTCAP44 

($-C)/5+C *,/. AND ILLEGAL OPCODE TSTCAP45 

D WITH • IN COLUMN 1. TSTCAP46 

BLNK BLANK OPCODE. TSTCAP47 

UNDEF S, 0, ANO u FLAGS. TSTCAP48 

THIS IS HOLLERITH INFO. TSTCAP49 

FLAG USE OF FLAGGED INSTRUCTION. TSTCAP50 

=1139 LITERAL. TSTCAP51 

=1139 SAME LITERAL. TSTCAP52 

=5597.0 E, St AND F FLAGS. TSTCAP53 

Z,3,5 TAG AND DECREMENT FIELD. TSTCAP54 

( YE S-COUNT)»t NO-LOOP )♦ ST ART, 2+3* ( NO-LOOP) TSTCAP55 

17, 13t-44,Q,l3,,l OCT PSEUDO-OP. TSTCAP56 

FLAG A DIVIDE INSTRUCTION. TSTCAP57 

MUL+UNDEF FOLLOWED EY A STORE. TSTCAP58 

C0UNT+3M NO-LOOP) PROPER USE OF EQU. TSTCAP59 

START USE OF SYMBOL DEFINEC BY EQU. TSTCAP60 

ENO-CCMP PHASE ERROR. TSTCAP61 

PI USE OF SYMBOL WITH PHASE ERROR. TSTCAP62 

5 PROPER BSS. TSTCAP63 

LOOP-COUNT PROPER SYMBOLIC DEFINITION OF BSS. TSTCAP64 

CALL-F IMPROPER BSS, PHASE ERROR. TSTCAP65 

COUNT, NO, C, YES LEGAL CALL MACRO. TSTCAP66 

ABLE, BAKER+2.CHRLY-5M NO-LOOP) TSTCAP67 

S CHECK ILC AFTER BSS AND CALL. TSTCAP68 

TEMPORARY STORAGE AREA BEGINS HERE. 

C0UNT+1»UNDEF FINALLY THE END. TSTCAP69 



RETURN FROM CAP, ENTRY POINT IS 500CC. 



POST MORTEM OF SYMBOLIC PROGRAM. 



CAP 


REM 


THE FOLLOWING 




REM 


PROGRAM TO CO 


COUNT 


LDQ 


ZERO 




STQ 


BITS 




LXA 


THSX 


LOOP 


LBT 






TRA 


NO 


YES 


SLW 


WORD 




CAL 


BITS 




ACL 


ONE 




SLW 


BITS 




CAL 


WORO 




LGR 


1 


NO 


TIX 


LCOP 




CAL 


BITS 


CONE 


CCTL 


002100070000 




REM 


STORAGE. 


ZERO 


OCTL 


ocoocooooooo 


ONE 


INT 


1 


THSX 


LAS 


36 




REM 


DATA. 


BITS 


INT 





WORD 


INT 







REM 


TEST OF CAP 




ILCD 


8 




TRA 


UNDEF 




INT 


1,2,-7,13A3,9 




WMW 


AEN 




COMP 


NO = YES + 


COMP 


COMP 


Z = A • B « 




TRA 


COMP 




COMP 


COUNT, 1 = L 




COMP 


DZ = IE+Z«( 




TIX 


C0UNT+3»( ( (NO- 




REM 


TEST OF PROPO 


KUL 


INT 





KUL 


INT 





C 


PZE 


-32+BITS 


c 


MZE 


NO+65 




SLW 


t + 1 




CLA 


2«i-l 




MTH 


C/3 


z 


PON 


( YES-C0UNT1/3 




STO 


(C-FLAGt/2 




SLW 


-8»BITS+$»l+7 




ARF 


( J-C1/5+Q 


• REMARK CARD WITH • IN CI 


BLNK 




BLNK 


($=•/ 


NOP 


UNDEF 


C 


HOL ! 


5THIS IS HOLLE! 




CLA« 


FLAG 


FLAG 


STO 


= 1139 




CLA 


= 1139 


• 


LAC« 


=5597.0 




TNX 


Zt3,5 




FAD 


( YES-COUNTMd 


CZ 


OCT 


17,13,-44,Ctl 




FDP 


FLAG 



ARE ALL LEGAL CAP INSTRUCTIONS. 
UNT BITS IN AC. 
ZERO TEST CELLS 

COUNT 36 BITS. 

BIT OR NO. 

NO BIT. 

BIT, SAVE AC, 

AND INCREMENT COUNT. 



RESTORE AC. 

NEXT BIT. 

INCEX. 

GET COUNT. 

STOP WITH TRANSFER TO 7000O OCTAL. 

TRUE ZERO. 
INCREMENT OF ONE. 
ADDRESS IS 36. 

STORAGE FOR BIT COUNT. 

TEMPORARY STORAGE FOR AC. 
PSEUDO-OPS, AND FLAGS. 

ILLEGAL OPCODE. 

UNCEFINED SYMBCL. 

ERROR IN INTOP. 

ILLEGAL OPCODE AND UNDEFINED SYMBCL. 
LOOP 
C / D / E / FLAG 

USE OF SYMBOL DEFINED BY COMP. 
C0P01.2 - START, 4 
OZ»(C+Z»(B + Z»A) )) ) + FCO 

-YES ) »Z+ 1 ) • ( LOOP-COLNT ) + 8» ( ZERO-DONE ) + 8 ) 
SED MODIFICATIONS TO CAP. 

MULTIPLY DEFINED SYMBCL. 

MULTIPLY DEFINED SYMBOL. 

PZE CODE. 

MZE CODE. 

t FOR THIS LOCATION 

$ TEST. 

DIVISION IN ADDRESS 
+ F PON WITH OIVISION IN ADDRESS ARITHMETIC. 

DIVISION WITH NEGATIVE ANSWER. 
•Z USE OF $ AS A SYMBOL. 

*,/, AND ILLEGAL CPCODE 
OLUMN 1. 

BLANK OPCODE. 

S, 0, AND U FLAGS. 
RITH INFO. 

USE OF FLAGGED INSTRUCTION. 

LITERAL. 

SAME LITERAL. 

E, S, AND F FLAGS. 

TAG AND DECREMENT FIELD. 
NO-LCOPH-ST ART, 2*3* (NO-LOOP) 
3,,1 OCT PSEUOO-OP. 

A DIVIOE INSTRUCTION. 



TSTCAPOO 
TSTCAP01 
TSTCAP02 
TSTCAP03 
TSTCAP04 
TSTCAP05 
TSTCAP06 
TSTCAP07 
TSTCAP08 
TSTCAP09 
TSTCAP10 
TSTCAP11 
TSTCAP12 
TSTCAP13 
TSTCAP14 
TSTCAP15 
TSTCAP16 
TSTCAP17 
TSTCAP18 
TSTCAP19 
TSTCAP20 
TSTCAP21 
TSTCAP22 
TSTCAP23 
TSTCAP24 
TSTCAP25 
TSTCAP26 
TSTCAP27 
TSTCAP28 
TSTCAP29 
TSTCAP30 
TSTCAP31 
TSTCAP32 
TSTCAP33 
TSTCAP34 
TSTCAP35 
TSTCAP36 
TSTCAP37 
TSTCAP38 
TSTCAP39 
TSTCAP40 
TSTCAP41 
TSTCAP42 
TSTCAP43 
TSTCAP44 
TSTCAP45 
TSTCAP46 
TSTCAP47 
TSTCAP48 
TSTCAP49 
TSTCAP50 
TSTCAP51 
TSTCAP52 
TSTCAP53 
TSTCAP54 
TSTCAP55 
TSTCAP56 
TSTCAP57 



STO MUL+UNDEF FOLLOWED BY A STORE. TSTCAP58 

START EQU COUNT+3»( NO-LOOP ) PROPER USE OF EQU. TSTCAP59 

A TRA START USE OF SYMBOL DEFINED BY EQU. TSTCAP60 

PI EQU END-COHP PHASE ERROR. TSTCAP61 

B TRA PI USE OF SYMBOL WITH PHASE ERROR. TSTCAP62 

E BSS 5 PROPER BSS. TSTCAP63 

F BSS LOOP-COUNT PROPER SYMBOLIC DEFINITION OF BSS. TSTCAP64 

LCOP01 BSS CALL-F IMPROPER BSS, PHASE ERROR. TSTCAP65 

CALL CALL COUNT, NO, C, YES LEGAL CALL MACRO. TSTCAP66 

CALL2 CALL ABLE, BAKER+2,CHRLY-5»(NO-LOOP ) TSTCAP67 

FOO CLA $ CHECK ILC AFTER BSS AND CALL. TSTCAP68 

END END COUNT+l«UNDEF FINALLY THE ENC. TSTCAP69 



POST MORTEM OF COLLATION TAPE. 



CAP 
COUNT 

LOOP 
YES 



NO 

DONE 

ZERO 

ONE 

THSX 

BITS 
WORD 



COMP 



REM 

REM 

LDQ 

STQ 

LXA 

LBT 

TRA 

SLW 

CAL 

ACL 

SLW 

CAL 

LGR 

TIX 

CAL 

OCTL 

REM 

CCTL 

INT 

LAS 

REM 

INT 

INT 

REM 
ILCD 

TRA 
INT 
WMW 

COMP 

CLA 

FAO 

STO 

COMP 

LDO 

FMP 

XCA 

FMP 

FDP 

XCA 

FDP 

XCA 

FOP 

STQ 

CLA 

STO 

TRA 

COMP 

CLA 

FSB 

STO 

COMP 

LDQ 

FMP 

STO 

CLA 

FAD 

STO 

LDQ 



THE FOLL 

PROGRAM 

ZERO 

BITS 

THSX 



OWING ARE ALL LEGAL CAP INSTRUCTIONS. 
TO COUNT BITS IN AC. 

ZERO TEST CELLS 



NO 

WORC 

BITS 

ONE 

BITS 

WORD 

1 

LOOP 

BITS 

0021C007 

STORAGE. 

OOOOOOOO 

1 

36 

DATA. 





TEST OF 
8 

UNDEF 
1,2,-7,1 
AEN 

NO = Y 
YES 
LOOP 
NC 

Z 
A 
B 

C 

D 



FLAG 

TEM 

TEM 

Z 

COMP 

COU 
LOOPO 
START 
COUNT 

DZ 
Z 
A 

TEM 
8 

TEM 
TEM+1 
Z 



0000 



0000 



COUNT 36 BITS. 
BIT OR NO. 
NO BIT. 
BIT, SAVE AC, 

AND INCREMENT COUNT. 



RESTORE AC. 

NEXT BIT. 

INDEX. 

GET COUNT. 

STOP WITH TRANSFER TO 70000 OCTAL. 



TRUE ZERO. 
INCREMENT OF ONE, 
ADDRESS IS 36. 



STORAGE FOR BIT COUNT. 
TEMPORARY STORAGE FOR AC. 
CAP PSEUDO-OPS, AND FLAGS. 
ILLEGAL OPCOOE. 
UNDEFINED SYMBOL. 
3A3.9 ERROR IN INTOP. 

ILLEGAL OPCODE AND UNDEFINEO SYMBOL. 

ES + LOOP 



=A«B»C/0/E/ FLAG 



USE OF SYMBOL CEFINED BY COMP. 
NT,1 = L0OPC1.2 - START,* 
1,2 

= (E+Z*ID+Z«CC+Z»(B+Z«A))> ) ♦ FCO 



TSTCAPOO 

TSTCAP01 

TSTCAP02 

TSTCAP03 

TSTCAP04 

TSTCAP05 

TSTCAP06 

TSTCAP07 

TSTCAP08 

TSTCAP09 

TSTCAP10 

TSTCAP11 

TSTCAP12 

TSTCAP13 

TSTCAP1A 

TSTCAP15 

TSTCAP16 

TSTCAP17 

TSTCAP18 

TSTCAP19 

TSTCAP20 

TSTCAP21 

TSTCAP22 

TSTCAP23 

TSTCAP2* 

TSTCAP25 

TSTCAP26 

TSTCAP27 

TSTCAP28 



TSTCAP29 



TSTCAP30 
TSTCAP31 



TSTCAP32 





FMP 


TEM + 1 






STO 


TEM+2 






CLA 


C 






FAD 


TEM + 2 






STO 


TEM + 3 






LDQ 


Z 






FMP 


TEM + 3 






STO 


TEM+4 






CLA 


D 






FAD 


TEM+4 






STO 


TEM + 5 






LDQ 


Z 






FMP 


TEM+5 






STO 


TEM+6 






CLA 


E 






FAD 


TEM+6 






STO 


TEM+7 






CLA 


TEM+7 






FAD 


FCO 






STO 


DZ 






TIX 


C0UNT+3»( ( (NO-YES )«Z+1)« (LOOP-COUNT ) + 8»( ZERO-DONE) +8) 


TSTCAP33 




REM 


TEST OF PROPOSED MODIFICATIONS TC CAP. 


TSTCAP34 


MUL 


INT 


MULTIPLY DEFINED SYMBOL. 


TSTCAP35 


MUL 


INT 


MULTIPLY DEFINED SYMBCL. 


TSTCAP36 


C 


PZE 


-32+BITS PZE CODE. 


TSTCAP37 


c 


MZE 


NC+65 MZE CODE. 


TSTCAP38 




SLW 


$+1 $ FOR THIS LOCATION 


TSTCAP39 




CLA 


2«S-1 $ TEST. 


TSTCAP40 




MTH 


C/3 DIVISION IN ADDRESS 


TSTCAP41 


z 


PON 


( YES-COUNTJ/3+F PON WITH DIVISION IN ADDRESS ARITHMETIC. 


TSTCAP42 




STO 


(C-FLAG1/2 DIVISION WITH NEGATIVE ANSWER. 


TSTCAP43 




SLW 


-8»BITS+J»1+7«Z USE OF $ AS A SYMBOL. 


TSTCAP44 




ARF 


($-C)/5+C $./i AND ILLEGAL OPCODE 


TSTCAP45 


» REMARK CARD WITH » IN COLUMN 1. 


TSTCAP46 


BLNK 




BLNK BLANK OPCODE. 


TSTCAP47 


($=•/ 


NOP 


UNDEF S> 0, AND U FLAGS. 


TSTCAP48 





HOL 


5THIS IS HOLLERITH INFO. 


TSTCAP49 




CLA* 


FLAG USE OF FLAGGED INSTRUCTION. 


TSTCAP50 


FLAG 


STO 


-1139 LITERAL. 


TSTCAP51 




CLA 


=1139 SAME LITERAL. 


TSTCAP52 


* 


LAC« 


=5597.0 E, S, AND F FLAGS. 


TSTCAP53 




TNX 


Z.3,5 TAG AND OECREMENT FIELO. 


TSTCAP54 




FAD 


( YES-COUNT )•( NO-LOOP ) +ST ART , 2*3* ( NO-LPOP ) 


TSTCAP55 


DZ 


OCT 


17, 13, -44, Cf 13i tl OCT PSEUDO-OP. 


TSTCAP56 




FOP 


FLAG A DIVIDE INSTRUCTION. 


TSTCAP57 




STO 


MUL+UNDEF FOLLOWED BY A STORE. 


TSTCAP58 


START 


EOU 


C0UNT + 3MNC-L00P) PROPER USE OF EOU. 


TSTCAP59 


A 


TRA 


START USE OF SYMBOL DEFINED BY EOU. 


TSTCAP60 


PI 


EOU 


END-COMP PHASE ERROR. 


TSTCAP61 


B 


TRA 


PI USE OF SYMBOL WITH PHASE ERROR. 


TSTCAP62 


E 


BSS 


5 PROPER BSS. 


TSTCAP63 


F 


BSS 


LOOP-COUNT PROPER SYMBOLIC DEFINITION OF BSS. 


TSTCAP64 


LOOPOl 


BSS 


CALL-F IMPROPER BSS, PHASE ERROR. 


TSTCAP65 


CALL 


CALL 


CCUNT.NO.CYES LEGAL CALL MACRO. 


TSTCAP66 


CALL2 


CALL 


ABLE .BAKER+2, CHRLY-5»( NO-LOOP) 


TSTCAP67 


FOO 


CLA 


$ a_T.K ILC AFTER BSS AND CALL. 


TSTCAP68 



TEM 

END 



REM TEMPORARY STORAGE ARE 
ENO C0UN:'+1»UNDEF FINALL 



A BEGINS HERE. 
Y THE END. 



TSTCAP69 



POST CORTEM OF CONSOLE. 
S,Q,P= 0,0,0 
AC * 000000050000 
CQ = 606060600500 
SI = OOOOC0000007 
IR1 = 27624 
IR2 = 1 



IR4 = 



73226 



OCTAL DUMP OF CAP FOLLOWS. 

144 TTR 002100000213 

152 STO 060100000171 

160 L01 044100000200 

166 TSX 007400400146 

174 MZE 436063212243 

OCTAL DUMP OF PASS1 FOLLOWS. 

201 TTR 002100007615 

207 TTR 002100003C42 

215 TRA 0020C0000220 

223 TSX 0074C0400203 

231 CAL 450000000301 

237 TRA 002000000247 

245 TRA 002000000266 

253 TRA 002000000216 

261 HTR 000000000301 

267 TSX 007400400201 

275 PAC 0737C0400000 

303 TIX 234664456320 

311 TNX 606060606060 



OCTAL DUMP 
317 
325 
333 
341 
347 
355 
363 
371 
377 
405 
413 
421 
427 
435 
443 
451 
457 
465 
473 
501 
507 



CAL 
TIX 

SIR 



TTR 002 100000327 
LOI 044100000200 
CLA 050000000171 
HTR 000005000173 
TIX 256062317125 



OF PASS2 FOLLOWS. 
TTR 002100001121 
HTR 000000000000 
STA 062100000356 
OSI 044200000602 
450000000614 
200002400352 
005500000002 
HTR 000000000613 
HTR 000000314563 
HTR 000000254524 
TSX 007400400461 
ROL 477300000003 
TXI 177777100341 
TSX 0074C0400523 
ORA 450100000635 
SLW 060200000607 
OSI 0442C0000602 
PXA 075400400000 
STO 460000000601 
LCQ. 056000000631 
HTR 000023000606 



TTR 


002100007553 


TTR 


TTR 


002100007673 


HTR 


TSX 


007400400201 


HTR 


AXT 


077 400400012 


LAS 


TSX 


007400400204 


TXI 


HTR 


000046236343 


TRA 


TRA 


002000000216 


CAL 


CAL 


450000000301 


TSX 


TRA 


00200000022C 


CAL 


HTR 


000000000301 


CAL 


PXA 


075400400000 


AXT 


PZE 


015464452425 


TIX 


TNX 


606060606060 


TNX 


TTR 


002100007703 


TTR 


MZE 


47216262026C 


SXA 


ACL 


036160000317 


STA 


ST1 


060400000602 


LDI 


TSX 


007400400321 


AXT 


AXT 


077400400104 


LAS 


PXD 


475400000000 


TRA 


ORS 


460 200100000 


TSX 


TRA 


002 000000411 


HTR 


TRA 


002000C00432 


TSX 


TRA 


002000000341 


PXO 


LGL 


476300000003 


TIX 


TSX 


007 400400512 


TRA 


SLW 


060200000606 


CLA 


SLW 


060200000611 


XCL 


SLW 


060 200000610 


TSX 


TRA 


002000400001 


SXA 


TSX 


007400400544 


SLW 


LGR 


476500000022 


ORA 


LGR 


476500000022 


XCL 


AXT 


077400477405 


TRA 



TTR 002100007767 
TSX C07400400144 
TSX 007400400145 
TRA 002000000157 
TNX 602567232525 



002100001353 
000000000000 
000000000301 
43400040C246 
177777100216 
002000000263 
450000000301 
C07400400204 
450000000301 
450000000301 
077400477624 
266060263145 
606060606060 



002100001353 
06340040C455 
062100000357 
044100000631 
077400400012 
434000401226 
002000000367 
007400400461 
C00046236343 
007400400512 
475400000000 
200001400421 
002000000341 
050000000577 
413000000000 
007400400324 
063400400510 
060200000607 
450100000635 
413000000000 
002000400001 



HTR COOOOOOOOOOO 
LFT 405400000001 
OSI 044 200000172 
HTR 000000050000 
TIX 242524336060 



TTR 
MZE 
TSX 
TRA 
HTR 
HTR 
TSX 
TSX 
TSX 
TSX 
TRA 
TIX 
TNX 



TTR 
PAC 
STA 
SXA 
LAS 
TRA 
CAL 
TXI 
TRA 
TRA 
AXT 
TIX 
TSX 
TSX 
ORA 
HTR 
TSX 
LXA 
SLW 
ORA 
SXA 



002100002465 
472162620160 
007400400202 
002000000230 
0000005 12544 
000023464447 
007400400204 
007400400201 
007400400204 
007400400204 
002000400001 
214343706063 
606060606060 



002100000644 
073700100000 
062100000366 
063400100576 
434000400407 
002000000362 
450000401226 
177777100341 
002000000415 
002000000341 
077400200002 
200001200417 
007400400322 
007400400544 
450100000634 
000023000606 
007400400523 
053400400576 
060200000610 
450100000634 
063400400521 



TIX 232147606060 
TRA 002000000166 
AXT 077400473226 
HTR 000000000000 
HTR OCOOOOOOOOOO 



SXA 063400400164 

STI 060400000172 

TRA 002000400001 

TCO 006270442246 



TTR 
SXA 
HTR 
TRA 
TRA 
TRA 
TSX 
HTR 
TXI 
TSX 
TNX 
TXH 
TNX 



TTR 
CAL 
LOI 
TSX 
TRA 
TXI 
SLW 
HTR 
HTR 
TSX 
AXT 
SLW 
HTR 
LOQ 
SLW 
AXT 
SLW 
CAL 
STQ 
SLW 
AXT 



002100001375 
0634C0400277 
000000000301 
002060400247 
002000000246 
002000000254 
007400400205 
00000000030 1 
177777100216 
007400400210 
602545246060 
302560254524 
636263232147 



002100001230 
450060000317 
044100000631 
007400400320 
002000000355 
177777400366 
060200100000 
000000512544 
000023464447 
007400400323 
077400400006 
060200100000 
000000000613 
056000000631 
060200000612 
077400477616 
060200000606 
450000400000 
460000000611 
060200000612 
0774C0400005 



TTR 
PAC 
CAL 
TIX 
HTR 
HTR 
HTR 
TSX 
TSX 
PXA 
TNX 
TXH 
PZE 



TTR 
ARS 
STZ 
HTR 
TRA 
TIX 
TSX 
TRA 
TRA 
HTR 
LOO 
TSX 
STO 
LGR 
CAL 
CLA 
LAC 
TSX 
CAL 
TSX 
CAL 



002100003217 
073700100000 
450000000302 
200002400225 
000000314563 
000000254524 
000000000301 
007400400206 
007400400207 
075400100000 
602545246060 
336060 60 6060 
061160606060 



002100007767 
077100000022 
060000000602 
000000000613 
002060400410 
200002400357 
007400400322 
002000000407 
002000000430 
000000000613 
056000200617 
007400400461 
060100000577 
476500000022 
450000000636 
050000000577 
053500400576 
007400400555 
450000000601 
0074C0400324 
450000000636 



515 
523 
531 
537 
545 
553 
561 
567 
575 
603 
611 
617 
625 
633 

OCTAL DUMP 
637 
645 
653 
661 
667 
675 
703 
711 
717 
725 
733 
741 
747 
755 
763 
771 
777 
1005 
1013 
1021 
1027 
10 35 
1043 
1051 
1057 
1065 
1073 
1101 
1107 
1115 



SLW 
SXA 
TOP 
TOV 
LGR 
AXT 
ALS 
ALS 
TRA 
HTR 
TNX 
TIX 
TNX 
HTR 



060200400613 
063400400542 
016200000534 
014000000542 
476500000017 
0774C0477340 
76700000003 
076700000003 
002000400001 
000000000025 
606060600500 
266060263145 
606060606060 
000000000160 



TIX 

TOV 
ALS 
LGL 
CAL 
TRA 
LGL 
LGL 
HTR 
HTR 
HTR 
TIX 
TNX 
HTR 



200001400515 
014000000525 
076700000006 
476300000006 
450000000632 
002000400001 
476300000003 
476300000003 
000000027624 
000000000046 
000000606060 
214343706063 
606060606060 
000000606060 



CF VAREVL FOLLOWS. 

TTR 002100002510 TTR 

SXA 063400200670 SXA 

STZ 060000001105 MSE 

STC 460000001111 TSX 

AXT 0774C0477346 AXT 

TRA 0C2000400001 STZ 

SXA 063400400667 SXA 

SXA 063400401102 STZ 

SXA 063400401103 TRA 

STO 460000001111 AXT 

LGR 476500000006 CAL 

LDO 056000001111 TIX 

TRA OC2000000775 HTR 

TRA 002000001047 HTR 

TRA 002000001076 HTR 

TRA 002000001055 HTR 

TRA 002000001001 TRA 

TZE 0100C0001012 CAL 

AXT 077400400006 PXO 

ADO 040000001110 ALS 

LXA 0534C040U03 TRA 

STC 0601C0001101 TRA 

LXA 053400401106 SXA 

STO 060100001100 STZ 

TSX 007400400711 STO 

ADD 040C00001101 LXA 

SXA 063400100706 SXA 

HTR 000000000000 HTR 

HTR OOOOCOOOOOOO HTR 

HTR OCC000000074 TNX 



002100001423 

063400100671 

476000000141 

007400400711 

077400200001 

060 000001104 

063400200670 

060000001100 

002000000737 

077400400025 

450000001107 

200001100723 

000000000020 

000000000054 

000000000073 

000000000034 

002000001055 

450000001107 

475400000000 

076700000001 

002000400776 

002000001043 

063400401103 

060000001101 

060100001110 

053400401102 

063400200707 

000000077116 

000000000000 

606060606060 



OCTAL DUMP OF OPTBL F 
1117 HTR 00000 



1125 
1133 
1141 
1147 
1155 
1163 
1171 
1177 
1205 
1213 
1221 



ANA 43200 
CLA 05000 
FAC 03000 
FSB 03020 
PSE 07600 
LGR 47650 
MSE 47600 
STO 6010 
TIX 2COC0 
TOP 01620 
TZE 01000 



OLLOWS. 
0000000 
0000000 
0000000 
0000000 
0000000 
'0000001 
0000000 
0000001 
0000000 
1400000 
0000000 
0000000 



MZE 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 



464763224360 
000000232143 
000000234362 
000000262447 
000000432123 
000 000432450 
000000436721 
000000515043 
000000626350 
000000634431 
000000635121 
000000672321 



TSX 
PIA 
ACL 
TNO 
AXT 
SXA 
TIX 
TIX 
HTR 
HTR 
TNX 
TXH 
TNX 
TNX 



007400400324 
404600000000 
036100400606 
414000000540 
077400400005 
063400400574 
200001400561 
200001400567 
000000050000 
000000000064 
602545246060 
302560254524 
636263232147 
606060000000 



TTR 

CAL 

NOP 

PAX 

AXT 

STZ 

SXA 

STZ 

AXT 

LAS 

LGL 

TIX 

TRA 

TRA 

HTR 

HTR 

ZET 

TSX 

LGL 

ADD 

CLA 

LDO 

STZ 

TRA 

TSX 

TRA 

TRA 

HTR 

TNX 



002100001445 

450000400001 

076100000000 

073400400000 

077400127624 

060000001105 

063400100671 

060000001101 

0774001C0006 

434000400775 

476300000006 

200001200721 

002000001031 

002000001037 

000060000765 

000060000773 

052000001110 

007400400637 

476300000006 

040000001112 

050000001110 

056000001110 

060000001110 

002000000737 

007400400641 

002000400001 

002000001064 

000000000014 

602631450000 



PZE 
CAL 
CLS 
FOP 
LAC 
LOO 
LXA 
RQL 
STQ 
TMI 
TRA 
XCA 



000104001122 
450000000000 
050200000000 
024100000000 
053500400000 
0560000000CO 
053400400000 
477300000000 
460000000000 
41200000C000 
002000000000 
013100000000 



HTR 000023000606 AXT 

LGR 476500000003 CAL 

ROL 477300000001 TIX 

AXT 077400477343 TRA 

ALS 076700000003 LGL 

XCL 413000000000 PXD 

SLW 060200000600 PXD 

XCL 413000000000 CAL 

PZE 000500000000 HTR 

TNX 606460606060 TNX 

TNX 602545246060 TIX 

TXH 336060606060 TNX 

PZE 061160606060 HTR 
TNX 606060606060 



077400477371 
450000000633 
200001400531 
0C2000400001 
476300000003 
475400000000 
475400000000 
450000000600 
OOOOCOOOOOOO 
606060606060 
234664456320 
606060606060 
000000000000 



TRA 002000400001 
AXT 077400400003 
LDQ 056000000636 
SXA 063400400553 
TIX 200001400550 
AXT 77400400006 
AXT 077400400006 
AXT 077400477306 
HTR 000000000007 
TNX 606060606060 
PZE 015464452425 
TNX 606060606060 
HTR 000000000060 



HTR 

ACL 

AXT 

TPL 

TRA 

MSE 

AXT 

STZ 

LDQ 

TRA 

SLW 

STL 

TRA 

TRA 

TRA 

TRA 

TRA 

STO 

STC 

STQ 

STO 

MPY 

TRA 

TRA 

HTR 

STL 

STL 

HTR 

HTR 



000000000000 

036100001113 

077400200012 

012000000666 

002000400002 

476C00000141 

077400100002 

060000001110 

056000200627 

002 0000007 32 

060200001107 

462500001104 

002000001047 

002000001054 

002000001070 

002000001064 

002000001026 

060100001110 

060100001112 

060100001110 

060100C01101 

020000001101 

002000400777 

002000000737 

OOOC04001100 

462500001105 

462500001104 

000000001077 

000000000001 



HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 



000000212343 
000000233062 
000000234644 
000000264447 
000000432162 
000000432743 
000000465121 
000000624366 
000000626721 
000C006 34743 
000000636267 
000000672343 



STR 516551256543 SXA 

STA 062100000722 STZ 

AXT 077400100007 LDQ 

PAC 073700400000 PXA 

PXD 475400000000 NZT 

NOP 076100000000 TXI 

AXT 077400200012 TRA 

STZ 060000001107 AXT 

PXD 475400000000 LGL 

TRA 002000000775 TIX 

ZET 052000001104 TRA 

AXT 077400400003 CAL 

HTR 000000000040 TRA 

HTR 000000000060 HTR 

HTR 000000000074 HTR 

SXA 063400401106 LAS 

CAL 450000001107 ANA 

TRA 002000001026 LDQ 

CLA 050000001110 ALS 

TIX 200001401014 STZ 

TRA 002000001043 CLS 

STQ 460000001101 TRA 

CLA 050000001100 ADO 

TSX 007400400640 HTR 

TRA 002000000737 CLA 

STL 462500001104 PSE 

TRA 002000001064 HTR 

HTR OOOOCOOOOOOO HTR 

HTR 000000000014 HTR 



063400400667 

060000001104 

056060000722 

75400400000 

452000001105 

100001400703 

002000000662 

077400400025 

476300000006 

200003400727 

002000000745 

450000001114 

002000001034 

000060000762 

000060000770 

434000001115 

432000001116 

056000001107 

076700000002 

060000001107 

050200001110 

002000001043 

040000001101 

000004001100 

050000001100 

076000000141 

000000050000 

000000000014 

000000000034 



ACL 036100000000 HTR 

PSE 076000000002 HTR 

PSE 76000000006 HTR 

FMP 026000000000 HTR 

LAS 434000000000 HTR 

LGL 476300000000 HTR 

ORA 450100000000 HTR 

SLW 060200000000 HTR 

SXA 063400400000 HTR 

TPL O120C0O00O0O HTR 

TSX 007400400000 HTR 
XCL 413000000000 



000000214521 
000000234321 
000000262124 
000000266222 
000000432263 
000000432751 
000000472263 
000000626346 
000000633167 
000000635047 
000000637125 



OCTAL DUMP OF INTOP FOLLOWS. 

1226 HTR OOOOOOOOOOOO TXH 

1234 ACL 036100001350 STA 

1242 LDQ 056000200627 AXT 

1250 TRA 002000001302 STL 

1256 ALS 0767C0000001 ACL 

1264 AXT 077400100010 LAS 

1272 HTR OOOOC0000020 TRA 

1300 HTR 000000000060 TRA 

1306 TRA 002000001302 TRA 

1314 AXT 077400127665 CLA 

1322 STO 060100100000 STZ 

1330 LXA 053400101314 CLA 

1336 STO 0601C0100000 TXI 

1344 HTR OOOOOOOOOOOO HTR 

OCTAL DUKP OF SCAN FOLLCWS. 

1351 HTR OOOOOOOOOOOO TIX 

1357 PXO 4754C0000000 LGL 

1365 CAL 450000001374 LGL 

1373 TRA 0020C0400001 HTR 

1401 STA 062100001404 AXT 

1407 LAS 434000002461 TRA 

1415 TIX 200001201405 TIX 

1423 SXA 063400401442 SXA 

1431 STA 062100001433 AXT 

1437 TRA 002CC0001442 TIX 

1445 SXA 063400401470 SXA 

1453 STA 062100001464 AXT 

1461 TRA 002000001470 CAL 

1467 SXA 0634C0401432 AXT 



314563464760 
062100001242 
077400400006 
462500001346 
036100001344 
434000101302 
002000001305 
002000001330 
002000001261 
050000001343 
060000001343 
050000001343 
17777710134C 
OOOOOOOOOOOO 



SXA C63400401340 
STZ 060000001343 
PXO 475400000000 
STO 060100001344 
STO 060100001343 
TRA 002000001270 
HTR 000000000040 
SIR 005500000004 
ZET 052000001346 
ALS 076700000022 
STZ 060000001346 
ALS 076700000022 
AXT 077400477367 
HTR 000000001252 



SXA 
STZ 
LGL 
CLA 
TIX 
TRA 
TRA 
STL 
TRA 
ZET 
TXI 
ZET 
AXT 
HTR 



063400201341 
060000001345 
476300000006 
050000001343 
200001401244 
002060101303 
002000001310 
462500001345 
002000001302 
052000001345 
177777101326 
052000001345 
07740C200001 
000000000012 



SXA 063400101314 CAL 

STZ 060000001346 AXT 

LAS 434000001347 TRA 

ALS 76700000002 ADO 

TIX 200001201242 TRA 

TIX 200002101265 TRA 

HTR 000000000073 TRA 

TRA 002000001261 ZET 

CLS 050200001343 TRA 

PXO 475400000000 STZ 

SXA 063400101314 TRA 

PXD 475400000000 STZ 

TRA 002000400002 HTR 
HTR 000000000014 



450000400001 
077400200012 
002000001264 
040000001343 
002000001330 
002000001302 
002000001314 
052000001346 
002000001260 
060000001345 
002000001261 
060000001345 
OOCOOOOOOOOO 






234644442160 
476300000006 
476300000006 
000000254524 
077400400012 
002000001415 
200001401403 
063400201443 
077400400764 
200001201433 
063400201471 
077400200001 
450000402457 
077400476717 

.. FOLLOWING 



SXA 
LAS 
SLW 
SXA 
AXT 
TXI 
TXI 
CAL 
CAL 
SXA 
CAL 
LXA 
STZ 
AXT 



063400401372 

434000002460 

060200001374 

C63400401420 

077400200006 

177777101415 

177777101420 

450000400001 

450000201104 

C63400401432 

450000400001 

053400401432 

060000402457 

C77400200010 



XCL 413000000000 
TRA 002000001364 
TIX 200001401357 
SXA 063400201421 
LDO 056000400315 
LAS 434000002460 
AXT 077400477527 
POX 473400200000 
SLW 060200402457 
AXT 077400476723 
STD 062200001466 
TXI 100001401457 
SLW 060200201104 
TRA 002000400002 



AXT 077400400006 
TRA 002000001370 
CAL 450000001374 
CAL 450000400001 
PXD 475400000000 
TRA 002000001415 
AXT 077400200116 
PXA 075400200000 
TIX 200001401440 
AXT 077400200011 
ARS 077100000022 
TXL 700764401462 
TXI 100001201466 
HTR OOOOOOOOOOOO 



STZ 

LGR 
AXT 
ACL 
LGL 
TRA 
TRA 
AiL 
SIL 
TRA 
ACL 
SIL 
TXL 
HTR 



498 CELLS ALL CONTAIN HTR OOOOOOOOOOOO .. 



2457 



HTR 000000000014 HTR 00000000006C HTR 000000000073 



OCTAL DUMP OF SYMSTO FOLLOWS. 

2462 TTR 0021C0001353 

2470 SXA 063400402506 

2476 LXD 453400402524 

2504 SLW 060200403036 

2512 LAS 434000403035 

2520 TRA 002000002522 



HTR OOOOOOOOOOOO 
TSX 007400402462 
TXI 1000024025CC 
SXD 463400402524 
TRA 002000002515 
CAL 450000403036 



TNX 627044272563 
XCL 413000000000 
TXL 700310402503 
AXT 077400477506 
TRA 002000002521 
AXT 077400476771 



LAS 434000003035 
PXA 075400100000 
SIL 405500000001 
TRA 002000400001 
TIX 200002402512 
TRA 002000400001 



TRA 002000002470 
PAC 073700400000 
TRA 002000002506 
SXA 063400402522 
PXD 475400000000 
PZE 000106003035 



2727 
2735 
2743 
2751 
2757 
2765 
2773 
3001 
3007 
3015 
3023 
3031 



HTR 
PZE 
HTR 
HTR 
HTR 
HTR 
RFT 
HTR 
HTR 
HTR 
HTR 
HTR 



000000254524 
002321434302 
000000000026 
000000004731 
000000002471 
000000000050 
005451254421 
000000000023 
000023464447 
000063306267 
000024464525 
000043464647 





.. FOLLOWING 


12? 


HTR 


000000050164 


HTR 


HTR 


000000050152 


HTR 


HTR 


000000050147 


HTR 


HTR 


000 000050144 


HTR 


HTR 


000000050137 


HTR 


HTR 


000000050130 


TSX 


HTR 


000000050125 


HTR 


HTR 


000000050114 


HTR 


HTR 


000000050036 


HTR 


HTR 


0000000 50020 


HTR 


HTR 


000000050015 


HTR 


HTR 


000000050003 


PZE 



129 CELLS ALL CONTAIN HTR OOOOOOOOOOOO 



000000632544 
000023214343 
000000000025 
C00000000021 
000000000054 
007453135461 
C00000000071 
C00000446443 
000066465124 
000000464525 
000000004546 
C02346644563 



HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 



000000050154 
000000050151 
000000050146 
0000O0C50143 
000000050134 
000000050127 
000000050121 
000000050113 
000000050022 
000000050017 
000000050013 
000000050000 



060000001374 

476500000006 

077400477430 

036100002457 

476300000006 

002000001417 

002000400002 

C361C0400001 

405500000002 

002000400002 

036100400001 

405500000004 

700004201456 

OOOOOOOOOOOO 



TRA 002000400001 
PXA 075400400000 
STO 460000403035 
LXD 453400402524 
SIR 005500000001 
HTR OOOOOOOOOOOO 



HTR 000000264646 
MZE 434646470001 
HTR 000000000022 
TCO 006263215163 
HTR 000026432127 
HTR 000022434542 
HTR 000000000024 
HTR 000000446443 
HTR 000022316362 
HTR 000071255146 
HTR 000000702562 
TNX 606060606060 



HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 



000000050153 
000000050150 
000000050145 
000000050142 
000000050132 
000000050126 
000000050115 
000000050112 
000000050021 
000000050016 
000000050005 



OCTAL DUMP 


CF ENDOP FOLLOWS. 


30 36 


TTR 002100002465 


30 44 


SXA 063400403054 


3052 


SXD 463400403053 


3060 


TNX 632544474651 


3066 


TNX 606060606060 


3074 


SXA 063400403101 


3102 


TRA 002000400001 


3110 


TSX 007400403116 


3116 


SXA 063400403125 


3124 


TIX 200001403123 


3132 


STC 060100003160 


3140 


CAL 450000003206 


3146 


ORA 450100003205 


3154 


STO 460000003162 


3162 


HTR OOOOCOOOOOOO 


3170 


TNX 606060606060 


3176 


TNX 606C60606060 


3204 


TNX 632544200000 


OCTAL DUMP 


OF COMPOP FOLLOWS. 


3207 


TTR 002100003111 


3215 


HTR 000000000000 


3223 


CAl 45COC0400001 


3231 


SLW 060200003424 


3237 


AXT 077400200012 


3245 


XCL 413000000000 


3253 


TRA 002000003270 


3261 


LGR 4765C0000006 


3267 


SLW 060200003424 


3275 


HTR 000000000020 


3303 


HTR 000000000013 


3311 


LDC 056000003751 


3317 


ZET 052000003425 


3325 


TNZ 410000003270 


3333 


AXT 077400400253 


3341 


SIL 405500000010 


3347 


SXD 463400103364 


3355 


LAS 434000003750 


3363 


TXI 177777103364 


3371 


STZ 060000103743 


3377 


HTR 000000003743 


3405 


TSX 007400403212 


3413 


TSX 007400403213 


3421 


CAL 450060003207 


3427 


TNX 606060606060 


3743 


HTR 000000000001 


3751 


TNX 606060606060 


ICTAL DUMP CF EXPR FOLLOWS. 


3752 


TTR 002100004163 


3760 


SXA 063400404136 


3766 


STT 062500004143 


3774 


STA 062100004007 


4002 


STZ 0600C0004144 


4010 


TZE 0100C0004025 


4016 


TRA 002000004031 



TTR 
CAL 
TXI 
TIX 
TNX 
AXT 
SXA 
AXT 
AXT 
AXT 
CAS 
TRA 
TRA 
ORA 
TNX 
TNX 
TNX 
TNX 



002100007615 
450000003206 
177770103054 
215170606263 
606060606060 
077400400013 
063400403114 
077400427667 
077400400013 
077400474670 
034000003161 
002000400001 
002 000400001 
450100003162 
606 060606060 
606060606060 
606060606060 
632544200060 



TTR 

TIX 

ACL 

TSX 

AXT 

PXD 

AXT 

CAL 

LOQ 

HTR 

SLW 

LGL 

TRA 

CA L 

SLW 

TRA 

LXA 

TRA 

TXH 

LXA 

TRA 

PZE 

TXI 

PAX 

HTR 



002100003160 

234644474647 

036100003745 

007400403211 

077400100006 

475400000000 

077400400007 

450000003424 

056000003426 

000000000040 

060200003427 

476 300000006 

002000003343 

450000003333 

060200403743 

002 000003417 

053400103430 

00200000336C 

300253103353 

053400103432 

002000003350 

000253700 307 

177 777103411 

073400100000 

000000000307 



HTR COOOOOOOOOOO 
TSX C07400403036 
AXT 077400477512 
MZE 465121272560 
TNX 606060606060 
TNX 600001403101 
CAL 45000040C001 
TXI 177777403113 
SXA 063400403075 
TRA 002000400001 
STO 060100003161 
CAS 034000003202 
XCA 013100000000 
CRA 450100003204 
TNX 606060606060 
TNX 606060606060 
TNX 606060606060 
TNX 632544606060 



TTR 

SXA 

STA 

AXT 

CA L 

LGL 

LAS 

LGL 

TIX 

HTR 

CAL 

TNO 

CA L 

ACL 

TNX 

CAL 

SXA 

TRA 

TRA 

STZ 

SXD 

HTR 

TSX 

TRA 

HTR 



002100003116 

063400403417 

062100003241 

077400400310 

450000200315 

476300000006 

434000403304 

476300000006 

200001103246 

000000000054 

450000003424 

414000003312 

450000003427 

C36100003743 

600001403341 

450000003333 

063400103432 

002000003366 

002000003401 

060000103743 

463400103406 

000000003743 

007400403214 

002000400002 

000000000253 



MZE 473165215160 


NZT 452000003161 


TRA 


TSX 007400403037 


HTR 000000003056 


LAC 


TRA 002000400001 


TNX 606325446060 


TNX 


TIX 215125216022 


TIX 252731456260 


TXH 


TNX 606060606060 


TNX 606060606060 


TNX 


SLW 060200403177 


SXA 063400403075 


AXT 


SLW 060200003164 


TSX 007400403037 


HTR 


SXA 063400403111 


AXT 077400474363 


TRA 


AXT 077400400016 


CAL 450000003203 


SLW 


CLA 050C00003160 


LDO 056000003160 


ADO 


NOP 076100C00000 


XCA 013100000000 


TNZ 


TRA 002000003150 


TRA 002000003150 


ALS 


PXD 475400000000 


DVP 022100003202 


ROL 


TRA 002000400001 


HTR 000000000010 


HTR 


TNX 606060606060 


TNX 606060606060 


TNX 


TNX 606060606060 


TNX 606060606060 


TNX 


HTR 000000000001 


HTR 000000000012 


TNX 


TTR 002100003760 


TTR 002100003074 


TTR 


SXA 063400203420 


PXA 075400100000 


STA 


STZ 060C60003210 


STZ 060000003425 


CAL 


SXA 06340040 3333 


TOV 014000003236 


TRA 


LAS 434000003751 


TRA 002000003245 


TRA 


STQ 460000003426 


LAS 434000003747 


TRA 


TRA 002000003260 


TRA 002000003304 


TIX 


TNO 414000003267 


TSX 007400403332 


CAL 


TIX 200001203240 


STL 462500003425 


TRA 


HTR 000000000061 


HTR 000000000074 


HTR 


LAS 434C00003743 


TRA 002000003311 


TRA 


TSX 007400403332 


CAL 450000003743 


SLW 


TSX 007400403332 


CAL 450000003427 


ERA 


STA 062100003430 


TRA 002000003270 


SXA 


SXA 063400403333 


AXT 077400474464 


TRA 


STA 062100003431 


TRA 002000003346 


LXA 


TXI 177777103353 


CAL 450000103743 


TZE 


LAS 434000003746 


TRA 002000003363 


TRA 


SXA 063400103432 


TRA 002000003363 


SXO 


SXA 063400103376 


TSX 007400403212 


PZE 


LXA 053400103432 


STZ 060000103743 


SXA i 


AXT 077400100310 


CAL 450000103743 


TZE < 


TNX 606263466060 


AXT 077400477520 


AXT ' 


HTR 0O0O00000001 


HTR 000000003274 


HTR I 


HTR 000000000307 


TIX 247160606060 


HTR 1 



002000400001 
053500403161 
6051254460 60 
302551253360 
606060606060 
077400474365 
000000003163 
002000400002 
060200403201 
040000003201 
410000003142 
076700000006 
477300000006 
000000000010 
606060606060 
606060606060 
606060606060 



002100003103 

062160003207 

450000003743 

002000003237 

002000003272 

002000003254 

200001403255 

450000003743 

002000003304 

000000000034 

002000003317 

060200003424 

032200003744 

063400403337 

002000400001 

053400103431 

010000003363 

002000003370 

463400103376 

000256000306 

063400103406 

010000003415 

077400200116 

000000000000 

000000000000 



FOLLOWING 198 CELLS ALL CONTAIN HTR 000000000000 



HTR 000000000013 HTR 000000000014 HTR 000000000034 HTR 000000000060 HTR 000000000074 



TTR 002100003074 
SXA 063400204137 
STA 06210C004037 
STA 062100004054 
STZ 060000004142 
LAS 434000004154 
LAS 434000004152 



TTR 002100003103 
SXA 063400104140 
PAX 073400100000 
STA 062100004040 
STZ C60000004145 
TRA 002000004014 
TRA 002000004022 



TTR 002100003127 
CAL 450000400001 
TXI 177777103772 
STA 062100004056 
STZ 060C00004146 
TRA 002000004031 
TRA 002000004033 



HTR 000000000000 
STD 062200004026 
SXA 063400104052 
SUB 040200004150 
TRA 002000004007 
LAS 434000004153 
LAS 434000004151 



TIX 256747516060 
STD 062200004070 
CAL 450000400002 
STA 062100004132 
CAL 450000103743 
TRA 002000004017 
TRA 002000004025 



402* TRA 002000004033 

4032 TRA 002000004025 

4040 HTR 000000003743 

4046 STZ 060000004145 

4054 CAL 450000103743 

4062 LAS 4340C0004151 

4070 TXH 300253104054 

4076 ZET 052000004147 

4104 TNX 602621246060 

4112 TRA 002000004.125 

4120 TNX 602343216060 

4126 TRA 002000004067 

4134 TSX 007400403754 

4142 TIX 264646606060 

4150 HTR 000000000001 
OCTAL DUMP OF TERM FOLLOWS. 

4155 TTR 002100003074 

4163 SXA 063400*04310 

4171 TXI 177777104172 

4177 STA 062100004304 

4205 TRA 002000004207 

4213 TXI 177777104214 

4221 TZE 010000004225 

4227 TRA 002000004213 

4235 TSX 007400404156 

4243 TZE 010000004247 

4251 TRA 002000004213 

4257 TSX 007400404156 

4265 TZE 010000004271 

4273 TSX 007400*04160 

4301 TSX 007400404156 

4307 TNX 606263506060 

4315 HTR 000000000001 
OCTAL OUMP OF (MAIN) FOLLOWS. 

4320 TTR 002100004331 
OCTAL DUMP OF ASSEMBLED PROGRAM FOLLOWS. 

50000 LOO 056000050016 STQ 460000050021 

50006 CAL 450000050021 

50014 CAL 450000050021 

50022 HTR 000000000000 

50030 HTR 000000000000 

50036 LDQ 056000050143 

50044 FDP 024100050146 

50052 TRA 002000050036 

50060 STO 060100050154 

50066 STO 060100050156 

50074 STC 060100050160 

50102 STC 060100050162 

50110 STO 060100050137 

50116 SLW 060200000001 

50124 HTR 000000000014 

50132 STC 060100031043 

50140 FDP 024100050132 

50146 HTR 000000000005 



TXI 177777104026 TXH 

NZT 452000004146 TRA 

STZ 060000004146 SXA 

CAL 450000004151 SLW 

TZE 01000C004067 STZ 

TRA 002000004065 TRA 

STL 462 500004144 TRA 

TRA 002000004111 ERA 

TRA 002000004125 TSX 

STZ 060000004147 ERA 

TRA 002000004125 TSX 

ZET 052000004143 TRA 

TNX 606263466060 AXT 

HTR 000000700000 HTR 

HTR 000000000020 HTR 

TTR 002 100003103 TTR 

SXA 063400204311 SXA 

CAL 450000400002 STA 

STZ 060000004314 CAL 

TRA 00200000424C LAS 

TXH 300256104201 TRA 

ERA 032200004316 TZE 

TSX 007400404156 TNX 

TNX 602624476060 TRA 

ERA 032200004316 TZE 

TSX 007400404156 TNX 

TNX 606723216060 TRA 

TRA 002000004301 TSX 

SLW 060200103742 TSX 

TNX 602624476060 TSX 

AXT 077400473742 AXT 

HTR 000000000054 HTR 



300253104007 
C02000004042 
063400104037 
060200004142 
060000103743 
002000004073 
002000004073 
032200004151 
007400403754 
032200004151 
007400403754 
002000004136 
077400474373 
C00000004072 
000000000040 

C02100003116 
063400104312 
C62100004201 
450000103743 
434000004316 
C02000004262 
010000004230 
602644476060 
002000004213 
010000004252 
602644476060 
002000004213 
007400404157 
007400404155 
007400404160 
077400200001 
C00000000061 



STL 
SXO 
NZT 
STL 
LAS 
TSX 
XCL 
TZE 
TNX 
TZE 
TNX 
TSX 
AXT 
HTR 
HTR 

TTR 
CAL 
STA 
TZE 
TRA 
XCL 
TRA 
TSX 
XCL 
TRA 
TRA 
CAL 
TRA 
TSX 
SLW 
AXT 



TSX 007400404320 TXL 777777777777 



LXA 

ACL 036100050017 SLW 

TTR 002100070000 HTR 

HTR OOOOOOOOOOIO TRA 

HTR 000011000000 HTR 

FMP 026000050145 XCA 

XCA 013100000000 FOP 

CLA 050000050150 FSB 

CLA 050000050145 FAD 

CLA 050000050114 FAO 

CLA 050000050115 FAD 

CLA 050000050146 FAD 

TIX 200001440517 HTR 

CLA 050000077777 HTR 

HTR 000000050115 HTR 

CLA 050000031043 HTR 

STO 060100050113 HTR 

HTR 000000000003 HTR 



462500004144 
463400104037 
452000004144 
462500004147 
434000004152 
007400403753 
413000000000 
010000004103 
602662226060 
010000004117 
602343626060 
007400403755 
077400200001 
000000004067 
000000000054 

002100003127 
450000400001 
062100004203 
010000004213 
002000004212 
413000000000 
002000004235 
007400404156 
413000000000 
002000004255 
002000004213 
450000004314 
002000004310 
007400404156 
060200103742 
077400100256 



TRA 
TSX 

TRA 
AXT 
TRA 
STL 
CLA 
TRA 
TRA 
TRA 
TRA 
SLW 
AXT 
HTR 
HTR 

HTR 
STD 
SUB 
STZ 
TRA 
CAL 
TSX 
TNX 
CAL 
TSX 
TSX 
TZE 
TSX 
TNX 
TSX 
TRA 



002000004033 
007400403752 
002000004025 
077400100 306 
002000004062 
462500004145 
050000004142 
002000004106 
002000004125 
002000004122 
002000004125 
060200103742 
0774C0100 307 
000000000000 
000000000061 

000000000000 
062200004214 
040200004315 
060000103743 
0020C0004216 
450000004314 
007400404156 
606723216060 
450000004314 
007400*04156 
007400404156 
010000004267 
007400404156 
606263466060 
007400404155 
002000400003 



STL 

PZE 

TRA 

STZ 

TRA 

TXI 

STQ 

TSX 

NZT 

TSX 

NZT 

TSX 

TRA 

HTR 



TXL 777777777777 TXL 777777777777 



053*00*50020 

060200050021 

000000000000 

002000000000 

000000000000 

C13100000000 

02*100050132 

0302000501*2 

03000005015* 

030000050156 

030000050160 

030000050162 

000000000000 

000000000000 

000000050126 

000000000000 

000000050030 

000000000002 



PSE 

CAL 
HTR 
HTR 
CLA 
FMP 
STQ 
STO 
STO 
STO 
STO 
STO 
HTR 
HTR 
HTR 
HTR 
TRA 
HTR 



076000000001 
450000050022 
000001000000 
000001000000 
050000050005 
02600005011* 
*6000005015* 
0601000 50000 
060100050155 
060100050157 
060100050161 
060100050163 
000000000000 
00000005015* 
000000000000 
000000050121 
0020000501*2 
000000050000 



TRA 
LGR 
LAS 
HTR 
FAD 
FDP 
CLA 
LDQ 
LDQ 
LDQ 
LDQ 
CLA 
HTR 
STO 
HTR 
FAO 
HTR 
HTR 



462500004146 
OOC256000253 
002000004046 
060000004144 
002000004073 
177777104070 
460000004142 
007400403754 
452000004145 
007400403754 
452000004144 
007400403753 
002000400003 
000000000000 



TNX 

PAX 

STA 

LAS 

TSX 

STQ 

TNX 

TRA 

STQ 

TNX 

TNX 

ERA 

TNX 

TRA 

TSX 

HTR 



002000050013 
476500000001 
434000000044 
000002000000 
030000050003 
024100050115 
050000050154 
056000050121 
056000050121 
0560000 50121 
056000050121 
050000050163 
000000047761 
060100077762 
000000000000 
030000050212 
000000000126 
000000000000 



632551446060 

073400100000 

062100004274 

434000004317 

007400404155 

460000004314 

604324506060 

002000004213 

460000004314 

602343216060 

602624476060 

032200004316 

602644476060 

002000004310 

007400404156 

000000000054 



SLW 
TIX 
HTR 
MZE 
STO 
XCA 
STO 
FMP 
FMP 
FMP 
FMP 
FAD 
HTR 
SLW 
HTR 
HTR 
TRA 
CLA 



060200050022 
200001450003 
000000000000 
400007000000 
060100050013 
013100000000 
060100050121 
026000050143 
026000050155 
026000050157 
026000050161 
030000050153 
000000050114 
060200030657 
000000050132 
000000000021 
002000050144 
050000000000 



FOLLOWING 147 CELLS ALL CONTAIN HTR 000000000000 



50377 HTR 000000000000 
END OF POST MORTEM. 
END OF RUN. 



Appendix C 



SUGGESTED ADDITIONS TO CAP 



This appendix contains a list of suggested modifications to CAP which a student may 
attempt to make when using CAP as a laboratory exercise. With each modification is 
given a "point" value which is an indication of the relative difficulty of modification 

The descriptions of many of these additions make reference to similar facilities in 
FAP (F0RTRAN Assembly Program). Detailed information on the operation of the 
FAP facilities can be obtained from the FAP reference manual.* 



C.l Symbols 



1. Add a test for multiply defined symbols and have CAP indicate with an M 
every operation involving a multiply defined symbol. 

2. Sort the symbol table after PASS1 . Beware, this is a difficult modifica- 
tion. If it fails, nothing else in CAP will work properly. 

a. Interchange sort. 

b. Radix sort or any sort which takes a time comparable to N log N. 

3. Use an exponential table lookup of the sorted symbol table for SYMGET. 

4. Add the pseudo-op EQU which is to operate as in FAP. Check for phase 
errors, and indicate with a P. 

5. Add a test to flag the eleven illegal characters in the location field In- 
dicate with an S. 



40 points 



40 points 
75 points 

75 points 

50 points 

35 points 



C.2 Operation Fie ld 

1. Add the three-letter prefix codes to CAP as in FAP (that is, PZE, MZE 
P0N, etc., and blank field). 

2. Add the pseudo-op 0CT which accepts octal input in the same format as 
INT. Errors should be indicated with an E. 

3. Add the pseudo-op BSS as in FAP. Check for phase errors and indicate 
with a P. 

4. Add the pseudo-o P H0L which accepts a card in the format of that in 
Figure C.l. n is a digit from 1 to 9, or if blank or it is assumed to be 10. 

-Reference Manual, F0RTRAN Assembly Program (FAP), IBM Publication C28-6Z35 
(September, 1962). 



25 points 
50 points 
40 points 
50 points 



167 



168 

H0L should then use n words of storage for BCI words as the FAP pseudo-op 
BCI does. 



1 678 ll|U 

Symbol H0L 



13 



72 



n 6-character words of BCI 



1 



ons. 



Figure C.l. Format for H0L pseudo-operati 

5. Add the pseudo-op CALL as in FAP except that: 

a. No transfer vector is formed. 

b. No error words are generated. 

6. Allow for indirect addressing of operators with an asterisk. 

7. Use an exponential table lookup for the op-table. (Only 25 points if you 
did this for the symbol table also.) 

8. Improve the REM P seudo-o P so that blanks replace the letters REM in 
the assembly listing. 

C.3 Variable Field 

1. Modify VAREVL to accept a "/" as a break character for division. Be 
careful of signs. 

2. Modify CAP to consider "$" as a symbol (in the variable field) meaning 
"this location" as does the "*" in FAP. 

3. Add decimal integer literals. 

4. Modify CAP to accept a tag field and remove the present tags in 0PTBL. 

5. Extend 4 so that CAP will also accepta decrement field and remove 
the present decrement in 0PTBL. 



50 points 

25 points 
75 points 

25 points 



25 points 

40 points 

75 points 
25 points 
1 5 points 



C.4 Assembly Listing 

1. After the assembly listing, print a listing of symbols defined and their 
values . 

2. Bonus for literals: After the symbol table, print a listing of literals. 

3. Bonus for multiply defined symbols: Before the assembly listing, print 
a list of multiply defined symbols and their multiple values. 

4. Bonus for symbol table: Form a table of undefined symbols and print 
after the assembly listing. 



40 points 

40 points 
40 points 

25 points 
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•3 00001 1 00001 



5. Print 0CT, INT, and CALL in detail mode. 

6. Consider a * in column 1 to indicate a remark as in FAP. 

7. Improve the assembly listing by separating the fields of the octal words, 
that is, CLA 64 should print as follows: 

0500 00 00100 
While TXL 1,1,1 should print 

and INT -32 should print 

-000040 000000 
while H0L 1 AB should print (if you have added H0L) 

602122606060 

8. Print the nonerror indications A, T, and D where applicable. For ex- 
ample, the letter A means either "an instruction normally written with an ad- 
dress does not have one" or "an instruction normally written without an address 
has one." Similarly for T (tag) and D (decrement). 

9. Add the nonerror indications F and Q. F means "a nonindirectly ad- 
dressable instruction has an indirect address." Q means "the instruction ST0 
(instead of the probable STQ) follows a divide instruction." 

N.B.: In connection with these last three suggestions (and others) you may 
note that all operation codes are completely specified by the first four and the 
last four octal digits. Thus the middle four may be used in 0PTBL for A, T, 
D, and F information and for controlling printing of instructions. These middle 
four digits may be masked out of the opcode before inserting in the assembled 
program. 

C.5 Compiler 

1. Add diagnostics to C0MP including 

a. Nonzero reduction level. 

b. Illegal grammar, that is, 

multiple "=" signs 

A = C(B) 

A = C) + (B 

A = C + (*C) 

2. Let column 7 be used for continuation cards in the same way that column 
6 is in F0RTRAN, or column 11 is in MAD. 

3. Add the operator ** to C0MP in such a way that A**B would be com- 
piled as 

CLA A 

LDQ B 

TSX EXP3, 4 

and the result from EXP3 is left in the AC. The operator ** should be given 
proper precedence. 



25 points 
25 points 
65 points 



40 points 



50 points 



75 points 



50 points 
75 points 
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4 Modify the compiler to accept integer and floating point constants and 
form these into a table , say,' LIT+00 to LIT+99 at the end of the program after 
TEM. To convert an integer of magnitude less than 2 27 to floating point, the 
following sequence of 7090 instructions will work: 



90 puilltb 



CLA INT 

0RA =0233000000000 

FAD =0233000000000 

ST0 FLT 



C(AC) = address integer 
Put in exponent 
Normalize 



C(FLT) = floating point equiva- 
lent of the integer INT 

5. Improve the efficiency of the compiler by reducing the number of | 50 - 100 points 
combinations 



and replacing the combinations 



and 



with 



ST0 


TEM+n 


CLA 


TEM+n 


STQ 


TEM+n 


CLA 


TEM+n 


ST0 


TEM+n 


LDQ 


TEM+n 



XCA 



